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AESTRACT 


This thesis examines the feasibility of implementing an 
existing manual system, the Individual Training Record 
Management System, cn a microcomputer. To demcnstrate 
conceftual feasibility, a prototype is designed and imple- 
mented utilizing & ccmmercially availabie database manace- 
ment system (DBMS). THEY PpEStCtype 1S not incended tc be a 
fully cperational system. Rather it provides an opportunity 
Bemc@emcnstrate Lfuncticns that could be fully implemented in 
Similarly designed eystems utilizing the basic criteria of 


Eemmpiicity, utility ard low cost. 
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I. INTRODUCTION 


Aw. GENEBAL DESCRIPTICS 


This interactive prototype automates the existing manual 
system cf maintaining individual training informaticn on 
USMC personnel. The term “system" is used throughcut this 
thesis te méan hardware and software. The software consists 
of customized code which overlays a commercially available 
data base management system (DEMS). The system is targeted 
for implementation at the infantry or artillery battalicn or 
subordinate unit level. However, with minor modifications, 
primarily increasing the limitation on the number of subecr- 
dinate units and increasing the size of the database, the 
Pwecem cculd be used Ey any U.S.N.C. organization, including 
the Marire Air Ground Task Force (MAGTF). NOU pELZer user 
experience in computer or autcmated systems is assumed. Oye 
addition to generating standard reports, the system prevides 
limited decisicn support capabilities, respcends to nen- 
standard data base irquiries, and includes facilities for 


data kase maintenance. 


EE. EACKECROUND 


PrPacivzaqual training Subjects in the U.S. Marine Corps 
encompass a variety cf otherwise unrelated training tcpics 
that are conducted and evaluated periodicaily. The ccnwzon 
eyafacteristic of individual training vis-a-vis Whe 2 
Seaenand 2S that training and testing relate to individual 
skills and individual levels cf performance. Since the 
meee 2S Of indiaviduel training and individual testing, data 
is maintained for each individual in a unit and ccnse- 


Milently, =he system is very data intensive. 


117 


a 


- 
7 
— oe i 





individual training includes subjects such as "essential 
subjects", physical fitness, PapceyD1StO)l GUdli fications, 
career training, and military cccupational speciality (MCS) 
training. Etene  Suedect OL GLOUpIng Of subjects typically 
includes its own set of training and testing requirements. 
For example, some individual training subjects require 
yroficiency demonstration only once during an entire career 
while otrers must be evaluated annually. Ene cee) al 
vidual training information includes approximately 60 serpa- 
rate elements of infcrmaticn that must be maintained for 
each Marine. Individual Training Records (ITR's) are tradi- 
tionally méeintained manually at the company level. A data 
base ccensisting of 200 records and 10,000 data elements ina 
company size unit is not uncommon. In addition to data base 
Beeaecenance , Which includes frequent creation, deleticn, 
and urdete cf records, the data base is often used to 
provide training management information concerning the 
Saerent training status cof the unit or as a basis fer devel- 
Cping future training plans. 

It is the contention cf this thesis that the systen can 
ke operated and maintéined by a technically unsophisticated 


wser at a reasonable cost. 


Cw. OFJECTIVES 


The cbhjective of this thesis is to design and implement 
a prototype system tkat is simple to use and that: 
imeidanteasns individtal training records for a USMC 
dca ton; 
2. Provides standard reports upon request; 
3. Prevides nonstandard reforts upon request; 
4. Demenstrates a decisicn support application; 


5. Provides a data base maintenance capability. 


12 





Co. ENVIFCNMENT 


The system is used and maintained by persons with no 
meemor GXpeérience with computers and with little frior 
trainirg cn this systen. The system's data basé régquires 
frequent maintenance. Approximately a 30% record turnover 
tate (i.e., 30% of cld records will be deleted and 30% new 
records will be inserted into the data base) is expected 
each year. Radd@etoraliy, records will be modified at the 
tate cf approximately 50 data fields per work day for each 
company (kased cn an average strength of 150 Marines fer 
compary). The physical environment envisioned is a typicai 
office setting with no unique systen requirements 


anticipated. 


Fe SYSTEM CHARACTERISTICS 


The following system characteristics are listed in erder 


Grampe Crtance. 
1. User friendly 


The syst2m is simple to operate and maintain. ieee 
Ieguires nce extended training sessions and it prevides 


promots to the user. 


the reliability of the hardware and the DEMS is 
rkeyond tke scope of this thesis. The code written tc imple- 
ment this design is the user-system interface. Accordingly, 
to ensure the integrity of the system, the DBMS remains 
transparent and inaccessible to the user. The overall reli- 
ability cf the systém is high. To this end, the systen 
includes the following provisions: 


ae Menu driven 





Bis No possibility cf accidantal erasure of data 


frase. 


Co lomposscataadty) ch user to “escape” or default to 


Peo cs 


The costs of a micrccomputer and the proprietary 
software required tc run the system are icw compared to 


Mainframe or mini~computer application. 


4. Expandability o 


it 


data kase 


The data basé€ can be expanded subject to memory and 
Pews constraints. Tre larger the data base the sicwezr the 
syster will respond tc user requirements. This is, however, 
an acceptatle tradeoff. 


EampeexEandability of functions 


ae eS SS ae ae SE ca a= = a 2 a> Se a eas ee 


the system can be-easily expanded to include added 
functions. This facility has been implemented by inecrfo- 
Zmioeng a redular structure in the design. A module can be 
@eeeac ch mocified with little difficulty. 


6. Speed of operation 


The speed of the system 1s r2alative to the size of 
the data tase. However in all cas@s compared to the present 


fanual system it is much faster. 


Fe SUMMARY 


1. Scere of Develonomens 


This thesis includes the determination of systen 
requirements, system feasibility, system design and review, 


and iaplementaticn of a functicnal prototype. 
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2. Cencept 


The purpcse cf this thesis is to demonstrate feasi-~ 
Pmerty cr the concept: A fully automated individual 
training record management system for a battalion size unit 
can ke implemented cn a micrcecomputer. The system can be 
develcred and operated at a reasonable cost. Furth¢rrore, 
the system can be operated and maintained by persons having 
NO pricr ccmputer experience after little training. 





II. SYSTEM DESCRIETICN AN 


REQUIREMENTS 


A. INEUT INFORMATION 


The user's input consists of a sequence of menu prempted 


O 
responses. Each user's response is either a specific 
request to the system for data base maintenance, a standard 
report, or data necessary tc generat2 the desized rnonstan- 


aaa) LeCCrt. 


EB. SYSTEM SPECIFICATIONS (FUNCTIONAL) 


ieweeiteinzng Data 


The system is capable of developing and maintaining 
training data for at least &00 Marines. the £ellewing 
infornaticn is maintained for each individual: 


ae Name/SSNypersonal data 
E. Rank 
ce. Unit (company and rflatoon) 


dvs Annual training requirements status 


( 
subjects, leadership, SNCO/NCO training ,etc.) 


E. Rifle/pistol qualifications status (current 


yea I) 
feenOsequa lificatcicns 


qe An unfermatted data field to be utilized as 
desired by the user. It may be used *o maintain the 
ao. towemigngKindsvet information: 


(1) Formal schools attended. 


(2) Local schocls attended. 
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(Gj e eeceuzses ccempleted. 


(4) Participation in training exercises/ 


training derlcyments. 


2. fata Base Maintenance 





Maintenance of the data base is simple and prevides 
positive user control at all times (i.e., user inputs data 
and views updated individual training record before data is 
stored intc memory). 


Most standard reports are retrievable in a statis- 


tical mode or ina wurit roster mcde. 
ae Statistical Mode 


The statistical mcde report prevides «he total 
cr the fpercent of aunit that has satisfied a particular 
user specified training criterion (What percent cf a unit is 
Swim qualified?). 


rk. Roster Meade 


The roster mcde repert provides names cf perscens 
in a specified unit that have satisfied a training 
meri cn. 


All standard reports are retrievable by unit desig- 


Meeer (€.9g., battalicn, company/platoon). Training data is 


cr 


retrievabkle by individual, by unit, or by a user defined se 
Sie attributes (e.g., Glee scGeemin A CO) utilizing the 


4 


nonstandard reports cftion. 
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5. Standard Reperts 
The system prevides the following standard reports: 
a. Unit Roster 


The Unit Foster Report will display in alphabet- 
ical crdéer the NAME, RANK, and PRIMARY MOS for each member 
cf the selected unit cr subunit. 


Eee PeeCESOnal Data ReELort 


The Personal Lata Report displays for e¢éach 
member cf a unit or subunit all personal data including 
MAME, SSN, RANK, FPRINMARY/S ECCNDARY MOS, UNIT/SUBUNIT NAME, 
meg CATE, EAS, BIRTEDATE, HFIGHT, WEIGHT énd a one char- 


acter Ecclean comment block. 
c. Essential Subject Training Requirements Status 


Report 

The Essential Sukject Training Requirements 
Status Report displays the percent and total number of unit 
or sutunit members that have completed an Essential Subject 
reguirement or the PFT (physical fitness test). 


d. Annual Training Requirements Status and Rester 


Reports 

The Training Status Report displays for each 
essential subject, tke percent of the unit that has success- 
fuliy ccupleted cach training element and the total numter 
of unit members that have ccmpleted each training element. 
tmmadditien, the Training Status Report includes completion 
Beet 2etics Tor PEFT?t, EFT2, SWIMQUAL, RIFLE QUAL, and -F 15 20L 
CUAL. 

The Trairing Roster Report displays in alphabet- 
ical crder each member of the selected unit or subunit and 


lhe 





mesecemeplete training status for the current year. ge 


ny 


training element has been successfully completed for the 


Sarrent year, Pa colTecEMIGOLEes ponding to that training 
Element will be shcwn. An "x" symbol aundicates =héet a 
training element has not been completed. For e€xample, 


"PIRST AID AE*H**B*¥*CF" indicates that elemerts ABDEF and # 
have keen ccmpleted and five cf the elaven elements have not 
been ccmpleted (i.e., C,G,I,J and K). 


Sen eeLeC7eTStol Oualificecions Status 


and Rester Reports 

The Marksmanship Status Report will display the 
gGualificaticn results for the unit or subunit members that 
Beye fired the rifle cr pistol for qualification during the 
current year. Also, the percent that have qualified in each 
categcery (eg. ee ess pitt, UN) @mercusseit Year results for 
rifle and pistol will be shown. Pile mpl StOlmgular 11cation 
results include only those members required to fire the 
Beered) fcr gualification. 

The Marksmanship Roster Report will display in 
alphatetical order the NAME, Rat goe DALE OF SQUALIFICATION, 
and CUALIFICATION RESULTS for each member of the selectec 
Gree Cr subunit. Current year results only will be 
displayed. 


- 


I. MOS Cualification Status and Roster Reports 


PiemUOommenGSster REFOEt Groups the selected unit 
cr subunit by primary MOS and RANK and then displays in 
alphaketical order tre NAME, RANK, PRIMARY MOS AND SECONDARY 
Boomer ali members in the unit or subunit. This repert will 
functicn regardless cf the number or different types of 
Meas ccrtained in a unit. 


- 





ge Individual Training Record Report 


The Individual Training Record Report prempts 


the user fer the name cf a membter in the data base. Aftera 


D 
Q 
O 
rH 
Ou 
rh 
O 
if 


Name is entered the ccemplete individual training r 
that individual is displayed. iviseLncludes 2f1 training 
data included in the data base on this particular individual 
(i.e@., essential sutject status, PFT status, current year 
tifleypistol qualification results, Swim qualification 
status) and personal data (1.¢€., name, rank, SSN, unit, 
primary MOS). 


he. Swim Qualification Report 


The Swim Cualification Report disrlays in alpha- 
Betical crder for each member of the unit or sutunit 
selected NAME, RANK, UNIT and current SWIM QUAL resuits. 


6. Lecision Suprert Subsysten 


>= 


The purpose of this component is simply te demcn- 
strate the decision support potential of this system using 


+he availakle data bese. 
7. Nenstandard Héeports 


The system cenezates user defined non-standard 
reports. These reports are created from attributes that the 
user determines. A maximum of three attributes can he 


selected. 
€. system Centrelis 


Safety centrels are previded to ensure that the data 
kase cannot be accidentally written over or ctherwise 
destrcyed. Also, the system includes an executive access 
@omtrcl facility, anUmecoOmerecl fon "Lead Only" access or 
"readywrite" access. System access is permitted in one of 


the fcllcwing three levels: 
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Sereen. 


epcicn 


ae Data Base Administrator level is intended for 
the sole use of the Data Base Administrator and 
includes full system capabilities (install systen, 
initialize data base, modify access dizectory, 


create/ delete/modify data base records). 
rk. Create/mcdify datz btase level 


Ce Restricted to retrieve information in report 


format only from the data base. 


CutEut Mode 


The prototype is capable of sending reports to a CRT 
With minor rodifications the user can be given an 


GE SGESGn OF Erinted copy output. 


Cw REQUIRED SPECIFICATIONS (RON-FUNCTIONAL) 


The following ig a list of non-functional systen srpeci- 


fications: 


ie 
2 


The system is interactive. 

A high schocl graduate with ne computer background 
can retrieve standard reports with no more than cne 
heur of syster training. 

A high schceol graduat2 with no computer backcround 
can create and maintain the data base with ne mere 
EnahesUttenOUuLS Of training. 

A high school graduate with no computer background 
can retrieve a standard report after one hour of 
fra lnin¢ « 

A high school graduate with no computer backcround 
Gan retrieve 4 multiple-criteria nonstandard repert 
after an additional cne hour of training. 

Tre system can be €asily modified to change record 
Herta ume eo ld formats, and Standard report formats 
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hearicummamMlancr redesign Or reprogramming effcrt. A 
Major redesign is ccnsidered any design effcrt that 
invelves changing a module interface. 

Jee tte System can retrieve standard reports in 15 
finutes or less. 

8. The system can retrieve non-standard reports in 30 
tinutes or less. 

9. The system dces “out of bounds" checking/paraneteéerz 
ckecking on all quantitative data and standard 
ieee U tse 

10. Tke system autcmatically converts rifle, pistcl, and 
mi raw SGoLes "8Rto  COEEesponding qualificaticns 
(e.g. 245 rifle raw sccre ==> Expert). 


De. DATA STRUCTURE DEFINITIONS (DATA DICTIONARY) 


fer Introduction 


The data dictionary should be m@intaized by the Data 
Base Administrator and documentation should be accessible to 
all users. This data dictionary facilitates maintenance, 
meen integrity of the information in the data kase and 


provides information cn data relationships. 
2. Lata Base Management Systen 
@a.e Commercial Software 


The Data Fase Management System (DBMS) kernel is 
a ccmmercially available software system. The pregram dBase 
II, a relational DBMS, provides all of the necessary attri- 
Buwes {(a¥ailability, record capacity, user friendly envircn- 
went, etc.). Therefore, dBase II (AsShton-Tate version 2.4) 
is used, and data structures are implemented by the dBase II 


syster. 





ke. Data Base Files 


The information maintained on each individual is 
organized ina réelaticnal data base. The following records 
Smepuples ere defined fcr each individual ( The numker of 
characters per field is defined in the data element 
dicticnary, see Appendix A): 

(1) Perscnal Information Record. SSN, name, 
military occupational specialty (MOS), rank, weight, height, 
company/rlatoon, birtkdate, joindate, expiration of active 
service (EAS), and gas mask size. 

(2) Essential Subject Training Requirements. 


SSN, 9 essential subidects, and physical fitness infcrmaticn. 


(3) Rifle/PistolySwinming Qualificatiors. 
eee citle score current year, pistol score current year, 


Swimmtirg gualificaticns, and dates. 


(4) Infcrmation Niscellaneous. SSN, 11 fields 





Per training information. 
(5) Comment. SsNcw 250 Chataecters thet can be 





Ueeerized, Beene seers discretion, for fEormal/inicrnal 
school data, deployments information, MCI courses completed 
cr specific comments. 

(GhmeSiGCUraty. SSN, name, user identification 


code, passwcrd, and authorizaticn level. 
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ey ccf tare 


At the center of the software subsystem is the IBM 
Fersonal Ccomputer Disk Opérating System (DOS 2.0). System 
requirements for PC CCS operating systems includes: 


ae 8088 based micrceprecessor 
rE. 128K bytes of RAM nemory 


ce. Cursor addressatle 24 line by 80 column CRT 

The software layer immediately outside DOS 2.0 is 
dBase II ~ (versicn 2.4) which is a commercially eavailatkle 
relationel data base applicaticn system developed and 
distributed by ASHTON-TATE. dase II is a data basé mnanage- 
ment tool that permits manipulation of user designed data 
base files using English-like commands which collectively 
define a guery languéce. 

fhe layer of code contiguous with and completely 
Surrcunding dBase II is what we designed and wrote to 
Smetety the thesis ckjecztive. The code is written in the 
aqBasé II query languace. This layer of code, that will be 
referred tc as the "cuter layer", is designed to be the only 
interface ketween tke system user and the system. Ali 
system entries, data base transactions or manipulations, 
report inquiries, and system exits are through the cuter 
Mayer cf code. This is an important and necessary design 


consideraticn for the following reasons: 
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Ceo osmieLaCcity 


In order tec satisfy the system requirement for 
Simplicity, it was necessary to impose a software layer 
tetween the user and the dBase II software. Cthersmea ces 
layer presents to the user a series of menus. The us¢r 
resrpends tc each menu prompt by pressing the keybcard key 
that corresfonds to action desired. The user's resfonsé in 
turn initiates a ccde sequence that causes the desired 
ag@eich tc be taken. If additional user input is reguired 
to ccmplete the acticn, the cede causes another menu to be 
fFresented tc the user. Each menu represents an exhaustive 
list cf pessible options that may be sslected by the user. 
This sequence of menu presentation and usér response is 
repeated until the desired action has been adequately 
defined. At this pceint the ccde executes using as vériables 
the input provided by the user. Therefore, this outer layer 
memudes all of the code that determines the functicns 
availakle tc the user and sinplifies the operaticn of the 
systen. 


bk. Layering 


ities Wseseraag access to the DOS 2.0 or the 
dBase II layer he could easily modify the outer layer code. 
This acticn could cause a system failure. Therefore, this 
eventuaility must be prevented. Anozther function of the 
cuter layer is to prevent access to inner layers of 
software. 


¢c. Data Inteority 


Seance tuecedacamrase £iles contain personel data, 
muae, MEecs to be protected, it is important to limit access 
to the data base. Also, uncontrolled access +o data base 


Bees Can ctesult in lcst data or catastrophic destructicn of 





the data Lkase. memereciude this, the cuter layer ptrecvides 


system security and ensures data integrity. 
Ges) Pee alntenance 


Whenever data kase files are accessed, hceuse- 
keeping functions need to Fe performed such as opening or 
closirg files, joining files, creating temporary files or 
deleting temporary files when no longer needed, and creating 
cr xreléasing variatkles. The outer layer automatically 


performs these functicns for the user. 


Pam SCTIWARE DESIGN 


Although the dBase II guery languag2 is not a struc- 
tured pregramming language, structured programming techni- 
ques were employed during the software design. This was 
done tc reduce system maintenance, to simplify system design 
and =«c make future changes tc the system e€asier tc inple- 
ment. The follewing technigues were emphasized during the 
design phase of the development cycle. 


a. Top down césign and hierarchical structure 
kz. Modularization 
¢. informaticn hidiag 


ad. In general, efforts were nade to maximize medule 


cohesion and to minimize coupling between modules. 


2. Icerdow 


Design 


the overall cesign ccncept was the top-down design 
cr stép-wise refinement technigue. Dares  ceecncept prevides 
the capability to werk from a simple idea and expand it to 


mieeraindl cemplex prccuct. This process facilitates crderly 
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and lcgical development of the design steps. The first step 
in the process is te determine how the data or an input is 
transformed to produce the desired output. The concentra- 
meonmeis cn ‘What* is done not ‘How’ it is done. With this 
informaticn data flow diagrams are produced. These diagrams 
should be ccensidered arrews pointing to ‘black boxes! which 
Manipulate the data. The actual mechanisms of the manifula- 
tions are net important at this point in the design process. 
The diagrams show the information passing through the system 
and the tzransfcrmaticn of data in the system. These 
diagrams are produced at an increasing level of detail until 
further expansion doeés not previde a Significant change. 
From the data flow diagrams, hierarchical charts are 
produced. Any information modifications that are related, 
are groured intc the same module. Once the hierarchy is 
established, algorithms are developed using structured 
programing techniques. These algorithms are then cenverted 
into code. The cede is implemented using the top dcwn 
programming technique, this technique implements the highest. 
levels cf the hierarchy first. As lower level modules are 
completed and tested, they are added to the Existing 


modules. This technique simplifies a complicated prcegran. 


C. DATA FLCW DIAGRAES 


Peuecarst, it is necessary to decide what infcrmation 
gces intc the system and what information exits frem the 
SySten. The user inputs both data and commands frem a 
terminal and receives, from the system, reports and infcrma- 
wirOn . Drew 5st2 ceration of the data flow diagram has twe 
inputs and two outputs (see Figure 3.1). 

The Individual Training Record Management (ITRM) System 
is respcensible for maintaining a large amount of data. 
Handling of the infcrmation shculd be transparent to the 
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Figure 3.1 Initial Data Plow Diagran 
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user. Therefore, a Lata Base Management System (DBMS) was 
incorperated to maintain the data base. The DBMS requizes 
specific ccmmands as input and outputs informaticn (see 
memure 3.2). 

The ITRM System is d2signed tc have a restricted access. 
The user must enter the proper identificaticn for the system 
to allow access. Piecmceecs= Lipets2on produces a velid/ 
invalid ecknowledgemert to the remaining portion cf the ITRM 
SySter. Commands and daté pass through the Command 
Determrinez= which selects the type of action <he system is to 
execute. Tucmeemrec: “SIncts crs eelled by the Command 
Determiner are: 


1. Standard Commend Determiner 
pee NChetandard Ccenmane Deterniner 


oe Maintenance Handler 
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Figure 3.2 Data Flow Diagram Expansicn: for DBS 


These =hree functions int 
[TEMS ccmrands. The DBMS then 


Scmaccmwictkhe ene DEMS py producing 
n O 
Genereatcr the information necessary to preduce the desired 


mM Cetes tO the Rerczt 


Bepos<S. Figure 3.3 shows the second expansicn. 

The access control of any system can be v 
Mion system reguires the user to input an identification 
ccde and @ passwerd. The system «nen matches these items to 
imsure an authorized usec. fewc@ecese £5 Varit, “he user's 
feumerazaticn leyel is passed to tne ~est cf the system. IF 
Mee@es= 1£ ifvelid, the usé€r gets ons more coportunity 
eee r a CCLLecCt access sequence. Ee the wset fails again 
the system terminates the session. The information requir 


e 
mememand.€ tke access functicn is stored in the DBMS. The 
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Figure 3.3 Data Flow Diagram Expansion 2 
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generatcz then interprets the DBMS raplies énd prempts the 
[eee tc fcrmat the rererts (Figure 3.5). 

Mee Gera flew diagrams, G@etens- lass ene vsimele ana 
Weeerew™ flcw of the ceta through the ITRM Systen. The nex 
Seep ic tc logicaliy crqanize the flow diagrams into 4 hier- 
eeeny Of medules that accemplish the data transfcormaticns 


depicted in the data flow diagrams. 
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meeagure 3.5 Data Flow Expansicn for Cconumand Generators 


LT. SISTES HIERARCHY 


The ITRM System is relatively simple ind 
a 


Teqictes maintenance of the data 93} 


tad 
A) 





standard rerorts, and simple query capabilities for the user 
through nenstandard reports. The system must be initialized 
and sequential ccntrol estaklished. : The ITRMKS Master 
Contrcl Module was created to handle the functions cf systen 


Bameccl and initialization. This module is the highest 
level of the hierarchy, level 1. All access functions are 
consclidated in one mcedule, the Access Module. The Command 


Teterminer Module ccntrols which functions the user can 
invoke and checks fcr prefer authorization level. The 
Access and Command Leterminer Modules comprise the seccnd 
level of the hierarckEy. 

The Standard Command feterminer, Nonstandard Command 
Teterminer, and the Maintenance Handler are combined with 
Ecrticns cf the Report Generater to form three modules, the 
Standard Report Generator, the Nonstandard Report Gen-ratcr, 
and the Maintenance W&cdule. These three modules interface 
with the LEMS and precuce DBMS ccommands. lneeecueiecn, they 
process the informaticn returned from the DBMS and produce 
the apprepriate reperts. Consolidation of determiner and 
report generation functions simplifies the structure cf the 
system and facilitates sub sequent maintenance. The three 
modules, Standard Fkeport Generator, Nonstardard Report 
Generator, and Maintenance, comprise the third level cf the 
heesarchy. The lowest layer cf the hierarchy contains the 
DB4S. The hierarchy displayed in Figure 3.6 demonstrates 
SEemplicity of design. 


Eo. MCDULE CESCRIPTICSES 
1. ITEMS Master Control Ncdule 
ae Module Prrpose 


The ITRMS Master Control Module initializes the 


system and contrcls the logical sequencing of all moduie¢s. 
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Pigure 3.6 ITRM System Hierarchy 


Ee. Module Furction 


Biers  Nacten ContrOlmsNcaule initiates .and 
coordinates ali internal system processes (except oferating 
systen functicns). The moauleé responds to intern 
@ 


n u 
(rer cthe modules) and *o environmental cues (270 he 
T 


_ h 
user). ne module controis the access to ali medules and 
shields the user frenm the resident operating system. Th 
Megule Will net allctwt the user to exit t0 the opéeratin 


syster. 





Gs Interfaces 


Riemeiaster conerol m@dule is at level 1 which is 
meemeagkest level ir the medule hierarchy. It interfaces 
With twe mecdules at level 2, Access HUcdule and Ccnmand 


Deternginer Fodule. 


¢. Design Decisions 


This module can be easily modified tc handle any 


expansicns ty adding rew module interfaces. 


a. Module Purpose 


The Access Module prompts the user for an idén- 
tificaticn code and rfassword. The module determines if the 
usez has authorized access and assigns the corresponding 


level cf access. 
Eee MOdule Function 


The Access Module requests the user's idéntifi- 
caticn ccde and fasswerd. It validates the ID to ernsuré the 
user is cn the access list and to ensure that the passwerd 
corresponds with the user ID. iaecne user ED is nec on the 
access list 2n apprepriate message is returned. Ee eene 
Basoword does nct ccrrespond with the user ID {after two 
iteraticns), an approvriate message is displayed and the 
sessicn is terminated. Once the correspondence cf IC and 
Fasswcerd has been determined, the module passes the access 
authecrizaticn level te the command determiner. The authori- 
zation levei is used to determines which menu cptions are 
available tc the specific user. 


3:5 





Gane Inmcertace 


Piemncceccmiogude Lecsives control instructicns 
Pagtmecne ITRMS Master Contrel Wodule. The Access Mcdule 
tieeetaces directly with the CEMS to manipulate tke security 
Pac. After the access module ccmpletes its processing and 


Mmemene Utser is authorized access, the level of access is 
passed rack to the ITRMS Master Control Module. 


d. Design Decision 


The desiqgn allcws nodifications to be made to 


the access system without side effects. 


3. Ccmmand Determiner Module 


ES ar ar Se ee ee Pe a ee Lee ee laa ll 


ae Module Prrpose 


The Command Determiner Module directs ccntrcl to 
€ither tke Standard Report Generator, Nonstandard Repcrt 
Generatcr, cr the Maintenance Fodule. 


ke. Module Function 


The Command Determiner asks the user, ‘through a 
standard set of menu frompts, what tasx he wishes te accen- 
pomch. Based on the user response, the Command Determiner 
Module transfers control tc cne of the three lower level 
modulés. The Cemmand Determiner Module also checks to see 
if the user has access to that module. Liveaccess 1s not 
authorized then an aprropriate message is displayed. 


c. Interfaces 


The Command Determiner is called by the ITRMS 
Master Cecntrol Module and passes control to e€ither the 
Standard Report Generator, Nonstandard Report Generator, or 
the Maintenance Module. 


a 








¢. Design Decisions 


This module allows the separation cof tha 
Standard Report Generator, the Nonstandard Report Generatcr, 
and the Maintenance ¥Fodule. Ths Separations fLacilitetes 


changes and reduces acdule coufiing. 
4. Nenstandard heport Generator Module 
a. Module Purpose 


The Nonstandard Report Generator allows the a 


4 


us 
to query the data base in a controlled manner. The querie 


” 


are generated frem a series of prompts to the user. 
b. Module Function 


The module prompts the user, through a series of 
menus, Eerpaoauee the desired query. When the mcdule 
receives the appropriate prompted input from the user, the 
nonstandard command cenerator accesses the DBMS fer the 
requested information. The information is then fcrmatted 
and displayed. 


€. Interfaces 


The Commard Determiner Module calls this ocduls 


rased on user selecticn. The Nonstandard Report Generator 
interacts directly with the user. This module constructs 
the queries and communicates them to the DBMS. < also 


rrocesses the information received from the DBMS and fecrmats 
mire data inte a report. 


€- Design Dé¢cisions 


If there is a future need to modify the types of 
gueries that are available to the user, the changes will be 
Sentined tc this module. 


a) 





5- Standard Reppert Generator Module 
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a. Module Prrpose 


The Standard Report Generator produces the DEMS 
commands that will create the standard rerorts. Thess 
reports are produced cr a regular basis, therefore, it is 


advantageous to stancardize the reports. 
Ee, MO@ude Furcticn 


The Stancard Repert Genaérator displays oftion 
menus to the user and translates user's responses intc the 
necessary sequence ci DBMS instructions. After the user 
decides which standard reports will fulrill his needs, the 
module formats standard reperts and displays the user 
reguested informaticn. The Standard Report Generator 


includes a [SS subset. 


c. Interfaces 


The Stanéard Repert Generator is called by the 
Command Determiner. The Standard Report Generator communi- 
cates with «he DBMS and precesses information from the DBMS 


memeercdtce its reports. 
¢. Design Decisions 


This module was designed to take advantage of 
fereweetact that many applications are routine in na«ure. 
These aré programmed ina single module and significantly 
Sampliify access to reutine reports. If any of thess routine 
reports neé€d modification, the change can be isclated to 
this mgcdrle. 
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6. Maintenance ¥Fcduie 


a. Module Purpose 


The Maintenance Module provides users the capa- 
bkility te create, delete, and update the data base reccecrds. 
Necessary system functions reside in this module. The Data 
Base Administrator maintains the access file frem this 


module and initializes the system to his specific unit. 
Pa SNOdgule Function 


To update a record, jhe MNaineenance Mcdule 
extracts the data in €ach data base file for a selected unit 
member. The data i¢ combined into a single screen display 
representing all data contained in the system on the indi- 
vidual. Ic update a field, the data in the fielc can be 
typed over with current data. Upon completion, each data 
element is read and returned to its proper locaticn in the 
appropriete data base file. Creation of new reccrds is 
accomplished in the samé manner. Records are deleted Ly a 
Single deletion commard. Therefore, this ccemmand usage is 
dimited tc avoid accidental and malicious destruction of 
data. 


Ge iInze-tfaces 


(D 


The Maintenance Module Tncemescece “With <h 


Command Leterminer and the CBEMS. 
c. Design Décisions 


All data modifications are implemented using the 
HKaintenance Module. The physical and logical structure of 
erie data base files is hidden from the user. 
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A. CCNSTRAINTS 


1. GEASE II 


Beim@owind 2S alist of dBese II constraints that 
affected the design cf this system and consequentiy imposed 
constraints on the insplementaticn of the Individual Training 
Record Management Systen: 

aie No more than 65535 records can be used ina 


single data tase fils. 


Es No more than 3z2 fields can comprise any singls 


EeECCrd . 


c. No more than 254 characters can be placed in any 
cne field. 


d. No more than 1000 characters can be placed into 


any single record. 


e No more than 64 variables can be lcecated in 


working storage at any given time. 
2. Haraware 


Following is a list of development hardware 
constraints that affected the design of this system and 
consequently impose ccnstraints on the implementaticn cof the 
Individual Training Record Maragement Systen. 


a. Main memcry storage (RAM) is 512K. 


rE. Two double density double sided disk drives were 


used for a tctal of 720K bytes of disk storage. 


4 OQ 





Ge The IBM EFC 8088 microprocessor operates az 4.7 

iEZ is 

TO maximize the amount of data that the system main- 
pegs, a RAM disk drive is created. This RAM drive allcxs 
the prograr to be copied into memory and enables the full 
use of tke two disk drives fer data. Use of the RAM drive 
increases the speed of the program by allowing the varicus 
eemeeec rcutines to ke read more quickly into the werking 
storage. The memory access time for the IBM PC is nuch 
faster than disk access time. This increase in speed 
reduces the response time to the user. The objective cf the 
prototype is to handle the data reguired to maintain a 
Peeeataich Sized unit*s training records. The amcunt of 
storage required for 800 individuals is approximately two 
megabytes. This allews for the overhead that the DEMS uses 
and the rocm necessary to execute functions that require the 
creation cf tempcrary files. The available storage in the 
rrotctyre system limited the test data base to a ccmpany 
sized unit. 


Pies tO’lewinc €nvarenmental considerations ccnstrain 


the system by placinc added requirements on the ultimate 
design. 


a. iInexperienced users 
es requent turnover of personnel 
c. Limited training time available 


a. Hardware maintenance must be readily availatie 


from outside ccmmercial sources. 


é. Software Maintenance is not intended tc be 
performed at the user level because computer 


prcqramming skills are not necessarily available. 


uy 





f. No unusual requirements for physical envircnment 
suck aS smoke or dust free atmosphere, unusual 2lec- 
Guieclomecme mEGnatdece 1 Stics or hookup, of vitration 


campéenine, are tequired. 


Be. GENEFAL 


The cuter layer ccensists cf six separate modules divided 
inte three levels. This section will briefly describe the 
routines thet make up each medule and the system output from 
he 


it 


€ach rovrtine. temeerstimeace Or the programs are in 


appendices, and can re examined for further detail. 


1. IIRMS Master Control Module 








a. Master Rcutine (Master. prg) 


imiseemecule Centrclis the s2quencing of the 
rrogran. It is an endless loop which réquires the computer 
memeeee Glther turnec off cr re-booted to exit the ITRs 


Systen. The Master routine requires the user to switch 
diskettes. The user receives a message to physically 
exchange the program diskettes with the data diskettes. ie 


the diskette exchange is not made or is nade improperly the 
user is pfrempted again to make the proper exchange. 

The Access Module is initiated by the Master 
Routine and if avalid indication is returned, the Master 
Routine will initiate the Ccmmand Determiner Module. Once 
the Ccmmand Determiner Module is exited, the Master Routine 
loops to the beginnirg to recéive a user command to initiate 
the Access Fodule. 


rk. Pause Routine (Pause.prg) 


This rottine provides atime delay for tke 
syster. SnenmcnaSeteutame aS Called, it delays the func- 


tioning of the system for approximately thirty seccnds. 





——  —— 


This routine is used to delay error messages <=hat ars 


Meeplayed fcr a short period of time. 


is Access Module 


aie Ge e@ee =| aS ae aap «alee 2 =P GaP 


ae Access Routine 


The Access Routine prompts the user for an iden- 
Paeeaedticn code. Micwroutane then instructs the DBS to 
search fcr that code in the security data base file. If the 
code is not found a message is displayed and the user can 


pls 


moy again. If the ccde is found the corresponding fasswor 
from the data base is stored in memory. The user is then 
Frompted for the password. When it is entered, if it does 
not match the password in memory an error message is 
displayec and the user can try again. If the passwerd that 
the user enters matches the password in memory, a valid user 
state is passed *o tke Master Rcutine with a user authortiza- 
tion level. 


3. Ccommand Determiner Medule 


a. Command L[eéeterminer Routine (Cnddet.prg) 


The Command Determiner Routine displays tc the 
user a menu. The user can choose to initiate the 
Nonstandard Report Generator, Standard Report Generatcr, 
Tata Entry and System Functicns (Maintenances), Hele 7 Or 
erg t « The user enters the appropriate letter which is 
Erocessed by a case statement that initiates the selected 


module. Figure 4.1 displays the Command Determiner Menu. 
ke. Help2 Routine (Help2.prq) 


The Help2 Routine provides informaticn to the 
user cn the functions that can be initiated from the Cecmmand 
Deterriner and the Maintenance Module. The informaticn is 


presented to the user to hélp in the selecticn of the 


= 
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Dyer eae eon SYSTEM FUNCTIONS 
Seee STANDARD KEFORTS 
Nees NCNSTANDARD REPORTS 
Hee e HELP 
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SELECT OFTION =====>; 


ae 
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Figure 4.1 Command Determiner Menu 


appropriate module ard is net designed to explain the func- 
tioning cf the entire systen. The systems built-in prempts 
walk the user through the necessary steps to accomplish the 
desired task. 


4. Nenstandard Report Generator Module 





ae Nonstandard Repcrt Routine (Nostdrpt. prs) 


Tits MOdUle Gives the user an option tc qo 
directly tc the repert or to view a help module. If the 
Meena desirés to go directly tc the report, this routine 
gueries the user for the first set of attributes and attri- 
Pee descriptions. After the user's selecticns arse 
cbtained, the routine searches the appropriate data base 
files to iccate all records that satisfy the user specified 

ttribute and attribute description. Attrikutes are field 
mMames such as RANK, COMPANY, MeEoUAL, ete. Up +c thres 
attrikutes from any data base ‘files (the data base file 


locaticn is invisible to the user) May be specified by the 
user. Multiple attributes are automatically joined Ly the 
Beweine using a lcgical “and operation. Die! Seeder ne 
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employs @ series of case statements. POmemeaGneat rl bute 
selected, the attribute name is stored. Slctdesc.prg is 
called which stores an attribute description such as F5 (for 
Peau Or A CO (for COMPANY) or EX (for RFLQUAL). Af*er the 
user has finished selecting attributes and attribute 
descriptions, the reutine identifies the correct database 
files and either creates a temporary file containing the 
needed irfcrmation cr ,if cnly two database files are 
involved, primary and secondary files are identified. The 
report is then displayed. Figure 4.2 depicts the sequence 
G@emeccreen displays for attributes and descrifticns of 
NCOMPANY is A CO" .ANC. WRANK iS ES” . AND. "PLATOON is 1ST 
ERar". 


NCNSTANDARD REECRT GENERATOR 
LCCATE ALL MAINES THAT SATISFY THE FOLLOWING; 


<ATTRIBUTE> <Desenrer LOR> 


CC MPANY ES A CO 

RANK eS ED 

ELATOON iS Pou! LAT 
muses *PNL ERY TC CONTINUE 


———- 
es 
| 
i 
' 
i 
i 
| 
| 
OED cee, CD 8 ey, ES a A pe | 


; 
| 
| 
3 
| 
L 


Figure 4.2 Attributes and Descriptors Display 


Ee eNons cande@ramhetp ROUTING (Nostdhlp.prg) 


This routine responds to the user's request fer 
"HELE" while in the Nenstandard Report Menu. It displays a 
meter @axplanation of the attribute and attribute descriftion 
process. 
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SSS hectem terabyte Reutine (Slctarti.prg) 


Liss ceuc ne mDEONPts che user to select attri- 
rates. After the first and second selecticn the uséer is 
asked if he wants te select ancther attribute (only thres 
attrikutes are permitted, therefore after the third attri- 
brute and attribute descripticn set have been selected the 
routine autcmatically executes the user request). If the 
respense is yes, the selecticn procedure is repeated. This 
Frocess is continued until the user answers no or three 
attributes have been selected. The routine locates the 
approrpriete data base files and displays the NAME, SSN, and 
Seertoute intormaticn for c¢ach record that satisfies the 


user's specified criteria. 
d. Select Déscriptcr Routine (Slctdesc. prg) 


This routine prompts the user to select attri- 
kute descriftions. Eecnmatrerabute description is stored 
into a memory variable for later use when the datakase files 
are searched. An attribute description is selected for each 
@ecribrute. 


eee standard 
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femeocandard heport Routine (Stdrpt.prg) 


This routine generates the primary menu (for 
standard rerort selection and stores the user's response in 
amemory variable. GOntreiesis then passed to the arpro- 
priate subroutine tc obtain the necessary data from the 
datakase. mis ECcuritonemewiil] Contanue until the use 
h 


ie 


ct 
D 


Besecrds with 2a "“"¢" (QUIT). Boguee 94.3 displays 
Standard Revort Menu. 
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| STANDARD eRe PORT SELECTION | 
See eee Onion reNG THe APPROPREATE LETTER | 
{ Awe. ONDE ROSTER | 
| Eoes tine ING STALUSe REPORT 
C.e.e- TRAINING ROSTER KEFPORT 
D..-INDIVIDUOAL TRAINING RECORD | 
Be eeMARKSMANSHIP STATUS REPORT 
Fe o.e-MARKSMANSHIP ROSTER REPORT 
GeeceNOs STAIUS REPORT 
Hee omen Os TER CREP ORT 
L..-PERSONAL DATA KEECRT 
Wess Sono LALUS RER ORT 
Kewcstolt ROSTER REP GRIT 
| Leee-SWIM QUALIFICATION REPORT 
M..HELE 
| C..-.-QUIT 
SELECT CETION ====35:3 
Ea 


Pigure 4.3 Standard Report Menu 


ieeececlect Urit Rowwime) (Sictunit. pra) 


This routine prempts the user to select the size 
mereemanre Of the unit (1.¢., battalion, company, platcon) for 
the report ceneration. The user r2sponds with a letter that 
Sereresfcnds to a user installed company Ot ee ela.wcon 


desigraticn. 
Cameunit ROoSter Kowtane (Unatrost. pra) 


Phases amecontrol routine which creates the 
Ferscnnel roster fcr the unit specified by the user's 
response to the Slcturit Menu, Figure 4.4% displays a copy 
Geeene Perscrnel Roster Report. 


Gem it di Ning ~Stacusmrcutine (Trngstat.prg) 


For the selected unit, this routine calculates 
the tctal number of training elements completed for #¢ach 


earning category. For eéxarple, the training categcery 


4] 





MT 
PNET PRC SlER 
NAME RANK PRIMARY MCS 
! mean Gh, SltEVE N. E4 0311 | 
Maersk, Re. Ve ES 0311 | 
| MmaolinN, D. P. B1 0311 
MGNNELY, Re Ge E6 0331 
| Paeos "ENTER® TO CONTINUE 
| | 
— 


Figure 4.4 Personnel Roster Report 


"HISICRY" ccnsists of three training elements (A, B, C). A 
rercent ccupleted ficure is calculat2a for each Lea 1g 
element Ey dividing the total training elements ccmpleted 
(EX. LLAKIS, LZBetS so 2Cu LS) by the total number of 
Pemecnnel in the unit (ZZTOTAL). BOLh the sorals for each 
element and the percent completed figures are shown (see 
Pegure 4.5). 


€. Training Count Routine (Cntest.prg) 


This routine counts the number of essential 
Subject training elements that have been completed in the 
unit cr subunit specified. 


Peel: hedtionwGcume ROUta ne (Cntqual. pra) 


This routine saves all memory variables in a 
memory file (ZZTCTAL) and then counts the number of perscns 
that have not completed SWIMQUAL, RE LQUAL, PSTQUAL and 
Femeecrs in the unit net required to qualify (NA). 
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TRAINING STATUS REPORT 


| | 

| meyer €F CONDUCT... tee eneans COMPLETED A... /5 | 

SO) EERCENT COMPLETED BB... 144 

| Pome oven: CONPLoOLED C...86 ! 

| mache CORPS HESTORY... 73 PERCENT COMPLETED A...131 | 

{ So eee eouNn tt, COMPBMEL bomb... 147 { 

| COMER ReGNT COMPDULED= Ce... 119 

| Siicar ORDER DRILI..«. G6 PERCENT COMPLETED A...83 { 

64 EERCENT COMPLETED B...115 | 

WOES ReCEN© COMPLETED C... 142 

| Petss “ENTER! TC CONTINUE 

| 

S _ 
Figurer 4.5 Training Status Report 

(eeetcainang Roster Routine (Txongrost.prg) 

This rottine provides the Training Rester 

Report. * starts at the top of the Pers.dbf and looks at 

each reccrd individually. If a record corresponds tc the 


unit selected by the user, the routine Trngrpt.prq is called 
Damen ccliects and displays the training data that ccrre- 
meeemeas tc the current Pers.dbf record (&€.g., If the user 
wants training data cn every member of 1ST PLAT, A _ CO, 
mmgeG=st.brqg locates each record in the Pers.dbf which 
Eelongs to 1ST PLAT, A CO. Tang gote prog then displays the 
training data from the appropriate data base files.). 
Informaticn on one individual is displayed in six tows. 
Four sets cf data are displayed per screen. The user 
presses the “enter" key to scrcll forward to seach succ¢esding 


Screen display. 
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Heel faenang hoster Fogmat Routine (Trongrpt.frg) 


This defines a coded report format which 
Gemeeiays COC, HIS, #KS, COD, INT, TAC, NBC, PFTICLSS, 
Peet ss, UNE end AIL for each member of the unit cr sukfunix 
selected. 


i. Marksmanship Status Routine (Mksstat.prg) 


This routine creates a temporary file which 
@emtaans the current year rifle and pistol gualification 
results for each meuker in the selected unit or subunit. 
The results are summed by gqualification category for the 
rifle and pistol. Fercentages are calculated and displayed 
in a summary status revort which is automatically displayed 
on the screen. Frog this mcdul¢ a simple decision supgpert 
submcdule may be called at the discretion of the user. If 
the user desires +o aralyze his remaining rifle range quotas 
and ccmpare them witk his tctal number of range requiraments 
for the current year, he may elect to "Analyze Rifle Range 
Cuotas" (See Quota Study Reutine for a more comrprlete 
MescrEIpticn.). Figtre 4.6 displays the Marksmanship Status 
Feport. 


ae | COnvert Ulleeacucine (Cyr cunit. prg) 


This routine stores the name of the company anc 
platcen selected (urit and subunit) by the user during 
routine 'Sictunit'. This is necessary because when the user 
selects @ unit and subunit, i1t is done by menu selecticn. 
Accordingly the cnly thing stcred into memory is the corre- 
sponding letter from the menu provided by Sictunit.prg (A, 
Pac, CL, &£). Some screen displays require the unit name 


fleng., “a CC" vice “A" ) so a ccnversion is necessary. 
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| | 
| CER omeN OHI E STALUS REPORT | 
BeprE EXPERT. o«« 48 PESCOL SX PERT. << > | 
merLi SHARPSHCOTESR...36 PESTOL SHARPSHOOTER...90 | 
RIFLE MARKSMEN... 48 PISTOL MARKSMEN... 2 | 
UNCUALIFIED... 16 UNQUALIFIED... 0 | 

| PERCENTAGES 
err LE EXFERT.. 2 PISTOL EXPERT... 60 | 
{ RIFLE SHARPSHOOTER... 24 PISTOL SHARPSHOOTER...9 | 
Peele MAKKSMEN... Se PISTOL MARKSMEN.. . 40 | 
UNCUALIFIED... 11 UNQUALIFIED... 7 
mrss *ENTER* TO CCNTINUE | 

| 

a el 


Figure 4.6 Marksmanship Status Report 


Ke ©uOta Study Routine {Qtastudy.prg) 


The Ctastudy.prg and the Quotapad.prg make up 
the décisicn support submodule. This module is used by 
Mksstat.frg and disrlays the range guotas that remain for 
the current year. The current month is extracted frem the 
tog cn date. The range guotas for each unit are stored ina 
memory file during the annual initialization procedure. MTh> 
apprcpriate set of range quotas for the unit involved is 
retrieved ard stored into memory variables. Summary infor- 
Maticn is provided concerning the relationship between 
remaining range guota requirements and remaining range guota 
allocaticns. Upon ccnclusicns of the module the user may 
meeuen tc t@he Standard Report Menu or to a scratch ped to 
revise quota asSsign@rents. Revised guota asSignments fron 
the scratch pad can either ke permanently saved in the range 
Gigeta memory file cr ignored. Bec ee evendix 8 fer ay mere 
detailed description. 
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ieemOuUOtanoCEactenrad Routine (Quotapad.prg) 


This module gives the user an opportunity to 
£ 


interactively medify the remaining monthly ri 


¢ 


M@iotas fcr his unit. This can be done an unlimited numter 
of times. Each tinge the screen display returns te the 
actual mocnthly allocation as base data. After each itera- 


tion, the new set of range guctas is totaled and ccempared to 
the number of rifle range quotas required by the unit fer 
the remainder of the year. A comment is displayed which 
indicates the net result (scratch pad quotas less than 
requirements, scratch pad quctés greater than requirements, 
Cr scratch fad quotas equal to requirements). However, if 
the user elects to fpermanentiy replace the monthly gqucta 
allocaticn in memory, he may de so by selecting the "Replace 
Sierent Cuotas" cpticn. 


m. Marksmanship Roster Routine (Mksreost.prqd) 


This roctine creates a temporary file which 
includes NAME, RFLQUAL, RFLDATE, PemguaL,  PSTDATE fcr each 
member in the selected unit or subunit. A standard report 
format (B:Mrksrpt) is used to display the Marksmanship 


Foster Report (sée Ficure 4.7). 
Pee NOS @otacus Rous ine (Nosstat . prg) 


This routine produces the MOS Status Refort. 
Meemetype Of MOS in tke specified unit cr subunit is ccunted 
and tctaled, regardless of the type or number of different 
BOS*S in the particular unit or subunit. The results are 
then disflayed by MOS and by rank (see Figure 4.8). 


c. MOS Roster Routine (Mosrost. prg) 


This is a contrcel routine which creat#s the 
Ferscnnel Rester for the unit or subunit specified by the 


user's response to tre Slctunit Menu (see Figure 4.9). 
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MARKSMANSHIP ROSTER REPORT 
| NAME RANK CUAL DATs QUAL 
i ~~. one a hh il lh | 
j BARTER, SIEVE N. E4 1007184 x { 
CARY, RV. Ee 050184 MM | 
SaetiN, D.P. Fl 050184 UN i 
CCNNELY, R.W. EE DDMMYY +x 
memos ‘ENTERS TO CONTINUE | 

{ | 
ee peeemmias.. ree rae 

Figure 4.7 Barksmanship Roster Report 

l/r ae ae = <8 
! MOS STATUS REPORT A CO, 3RD PLAT 
mec S RANK TOTAL 
0311 E1 8 | 

oe 11 E2 12 | 
0311 E3 9 

Ors 11 EY 8 | 
oa 11 E5 3 | 

| 
a aericeciee ene iwaats <r Sie asSeES SEED GED ie NED alee RSENS ES-ES SSD QUO GD ESD GED aD a a ae a ae ee eel 


Pigure 4.8 MOS Status Report 


Ee Perscennel Data Koutine (Persdata. prg) 


Hees 1S a seontzeecl routine which creates the 
Pemeernel Rester for the unit or subunit specified by the 
user's respense to tke Slctunit Menu. 


g.- Persennel Data Format Routine (Mosrpt.frm) 


This defines a dBASE II report format which has 


already reen determined and is stored in memory. 
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Melons eR ReeOR I 


NAME RANK PRIMARY SEC 
MOS MOS 
* MOS 0311 
BAKER, STEVE N. EY 0311 0331 
Bietrnpsr, RW. Ez 0311 x eK 
Gray, R. V. ns 0311 Xe Kk 
PEiLLIP, D.P. EY 0311 Kok kk 
PRESS "ENTER* TO CCNTINOE 


ieee awe er i ee ee 


es AO OSS et, ee eee Se SO ee 


Figure 4.9 MOS Rester Report 


Poko lestacus Hourtine (Eststat. prg) 


This routine creates a temporary file that 
includes all essential subject and PFT fields from the 
Fst.dkf for members in a user specified unit or subunit. 
From this temporary file the routine counts the total numker 
of unit members that have cempleted all elements in each 
Meainang category. The EST Status Report is displayed and 
includes tctals for each training category and the percent 
completed (see Figure 4.10). 


ee Hot Count Revtine (Cntest.prg) 


Piseomea SHORt ECUtInG “that counts the total 
meernang categories containing an ‘*t which indicates a 
training element has not been completed (i.e., It counts the 
number of training categories that currently include one or 
more training zlements that have not been completed). 


iro nOst €f Routine  (Estrost. prg) 


iio Ss  ameGenmt@ol  LCOUtine which creates the 


Fersonnel Rester Repcert for the unit or subunit specified by 
the user's response tc the Slctunit Menu. 
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Figure 4.10 EST Status Report 


Meee cS leans port rermat Foutine (Estrpt.prg) 


This routine formats and displays the EST Rcster 


mepert. Lt is called by Estrcst.prg. 
Ve SWim Qualification Routine (swimqual.prg) 


This routine displays the Swin Qual Report for 
the selected unit or subunit. The Swim Qual Report consists 
of each Marine's NAME, RANK, ONIT, and Swimming qualifica- 
mmean ctatus. At the end of the report, summary data is 
isplayed wkich includes the totals for each qualification 
Seeegcry and the overall total for the unit or subunit. 
Peagce 4.11 is a copy of the SwWinming Qualification Status 
heport. 


Ww. Swim Repcrt Routine (Swimrpt.prg) 


Tris fLOteine, “called by Swaimqual.prg ccunts and 
stores the number cf personnel in the selected unit or 
subunit that are in each Swimming qualification category. 
Also, this routine displays the NAME, RANK, COMPANY and 
Semm@atgq gualificaticn for each member of the unit or 


subunit. 
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a | 
BAKER, STEVE NW. E4 A co 
| Swan CUAL S3 
| 
irGakY, R.V. E5 A co 
SWIM CUAL S2 | 
PHILLIP, D.P. EY A CO 
SkIM CUAL WS | 
| SUMMARY LATA | 
SWIM CUALIFICATIOKN TOTAL 
| Ws 3 | 
$1 36 | 

f S2z 54 
$3 49 | 
| UNCUALIFIED 36 | 
Zn 
{ 
| PRESS "ENTER' TO CCNTINUE | 
= | 
! 
Oy ey ee a ne ee | 


Figure 4.11 Swinging Qualification Status Report 


xX. Help Routine (Help.prg) 


Miesecottane  Dmevaides a functional descrirtion 


ef each ztepcrt listed in the Standard Report Selecticn Menu. 
Bee tarntenance Medul 
aeeeicantain Control Rcutine (Maintain. pzg) 


The Maintain Cecntrel Routine produces a  =mnenu, 
Pegure 4.12, that allows the user toc select the desired 
mane t ion. This mocule restricts access when the function 
has a critical capability. Only the Data Base Administrator 
(CBA) anc the Assistart DBA have access to all functions. 


k. View Control Routine (Viewitr.prg) 


This module queries the user fer the name cf tha 


individual whose training record is tec be viewed. The 
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MAINTENANCE MODULE MENU 
Secreta cetue FOLLOWING OPTIONS 
Vee - VIEW INDIVIDUAL DATA 


eo -UPDATE DATA 
Cee e CREATE AN ITR 
CDeee- DELETE AN ITR 
See cotowrme FUNCTIONS 
Hee -HELE 
¥C.. -QUIT* 
SELECT OFTION ===>: 


| 
| 
| 
| 
L 


_—— 


aS CS Sa ee eee ae Ee: ee 


Figure 4.12 Maintenance Module Menu 


reutine ccntrols the search and creation of the fcrmatted 
screen that displays the ITH. The routine asks the user a 
series of cuestions that can be answered with yes or no. 
This rettine allows only the data to be displayed (see 
Begure 4.13). 
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GC. LTR Serecen Format broutine (Itrscrn.prg) 
g 


ty 
4 


fe erOuclnemmsErCauces the electronic I on 


which an individual's data is displayed. 
¢. Screen Data Retrieval Routine (Getdata.przq) 
The Getdata.prg ccmmunicates with the UCBMS and 


retrieves the data fcr a particular individual. iftet Den 
sends the data to tke appropriate pesition on the screen 


that ccrresronds to the ITR format. The DBAS locates indi- 
Medics ty their SSN. Feur data base files are used to 
create an TER Fers.dbf, ESmeaaDt , Oitmaa bt, and 


imcomaisc.dbf. 
e. Comment Retrieval Routine (Getcmmnt.prg) 


If wunstructured comments exist for an indi- 
vidual, Helse OuLIne. wile Iinstruce the DBWS to search for 


them. The comment information will than be displayed en the 


screen. 
UCC cr omecitroimmnoutine = (Updtitraprg) 
The Update Contrcl Routin2 questions the user 
concerning which ITR is to be updated. The routine dé¢ter- 


Bines if the individual is in the data base and controls the 
update of tte ITR. Tke routine allows the user to update as 
many ITR's es desired. The data is displayed on the screen 
in the ITR format and allows a modified form of full ecreen 
editing. 


g- Data Update Routine (Updata.prg) 


This routine requires th2 user to type in the 
mome Cf the field tec be updated. The routine then high- 
lights that field and permits data to be entered. When the 


data has been entered this reutine initiates error chacking 


So 





ead initiates calculations. The data is then stored in th 


iD 


data kase. 
feet ner cet onencucine (Creatitzr. prg) 


The creation of anew ITR for an individual is 
Somerciiled by this routine. Pent ates the LOnMatting Of 
the screen and contrcels the reutine which gathers the data 
meee the individual. The routine allows multiple records to 


ke created. 
1. ITR Data Initialization Routine (Indata.prg) 


This routine initializes the data base and 
allows tke user to enter data for an individual by field. 
Once the data has been entered the module initializes error 
checking and calculations that may pertain to the data 
feelds. If unstructured comments are to be entered, the 
Betmane controls this process. The ETR Data Initialization 
Routine instructs the DBMS to store the data in the appro- 
priate data base files. 


ie La td ec aeCrreuea kg) ROULTIne (EXrOor.prg) 


This routine perfcrms the error checking for ths 
system during data entry. Since this is a prototype systen, 
error checking is not extensive. Dates, value ranges, and 
acceptakle characters are the limits of the error checking. 
Dates are only checked for limits in number of months, days 
in the menth, and acceptable year windcw. Specific menths 
are not matched to specific number of days. The system dces 
catch the mcst ccmmon errors caused by gress typing nistakes 
Fut may not catch slight errers if the values are within 
specified limits. 
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Kounea ec ll acc howtanc. (Calculat.prg) 


ie meCovecdeataonmhourine “performs the calcula- 
mwems necessary tc reproduce training tables ccrnesrning 
weightykeight standards, physical fitness standards by ace, 
trifle gualification levels , ardmelesco Ll mca ls fica. ion 
levels. When the ainformaticn that is needed for these 
calculations has been entered in the data base the systen 
recalculates the related fields and enters the new gualifi- 
caticns in the data tase. 


1. Comment Update Routine (Wrtcmmnt. prg) 


This routine finds the individualts conment 
record in the data bese and updates the information with new 
data. It tren stores the data back into the data base. 


Dp. Comment Creation Routine (Crtcmmnt.prg) 


The Comment Créeaticn Routine creates an unfor- 
matted ccmment record for an individual in the data tase. 
meemeccmment recerd is filled with asterisks that will be 


typed cver when data is inserted. 
mB. Delete ITE Routine (Deletitr.prg) 


This routine is limited to the DBA and Assistant 
eA Only. The routine queries the user for the name cf the 
individual to be deleted. iter <ner finds the individuals 
TTRM AUnfermation and displays the data in ITR format. A 
second verification, that this individual is to be deleted, 
is oktained at this time. The module then deletes the indi- 
wogal from all the data base files. This deletior is 


permanent and there is no recovery of deleted records. 
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Seovscelmmunct1on CCRtrol Routine (System. erg) 


LliemcoreLcmmecnrmcnystem functions is accomplished 
Pyethis recutins. EP heuciumpcevious routines, this routine 
is menu driven (see Figure 4.14). The user selects the menu 
Ccpticn that performs the desired function, and calis the 
apprcrfriate routine. 


Sore uerUne. LON MENU 
SELLE Cu ONE VCE STHESFCELOWENG OPTIONS 


Deel LES 
Soemere LOL EO 


43 te 
taj 
ZH rs 
oo to 
<t fe 
Qt og 
try t- 


ENTER CETION ===>; 


ae a a cm Se a ae OY 


ye es es 


| 
| 
| 
L 


Figure 4.14 System Function Menu 


Eo oOvStemminctallaticn RoWeene (Install. pra) 


Units in the Marine Corps often have different 
names. The system allows the DBA to name his units to 
correspond to the actual names cf the battalion's units. 
The system also initializes the current year. This infecrma- 
tion is then stored cn a file which is recalled whenever the 


Syece® is functicninc. 


HY 


g- System Reset Routine (Systeset.prg) 


fect auing ss an ene Yarine Corps is based cn a 
yearly cycle and reéeguires that individuals requalify in 
certain areas once cr mor¢é a year. This routine resets 
globally all the fields in the data base that must be 





ce 


requalified each year. The recutine allows the DBA tc enter 
the yearly range quctas. The DBA can use this routine to 
update tkose quotas, tut this is not recommended. The capa- 


meet y alsc exists in the Standard Report Generators DSS. 
re. System Access Control Routine (Rstaccss.prg) 


The DBA must be akle to change the access list 
ty deleticns or additions. This routine displays a menu, 
(Figure 4.15) that gives the DBA options to chocse. This 
routine gives the DEA the ability to manage access tc the 
system and maintain a list of users. It is not reccnmended 
meet ne LEA ke@€e a Erinted copy of this list uniess it is 
in a secrred environment. The system will list each user, 
user identification ccde, wser password, and authcrization 


level. 


! 
| 
MENU | 
| 
oo ee 


Figure 4.15 Access Function Menu 








> ae sae ew ee ce ee ee 


A. GENEBAL 


The thesis ccncert statement is written in general terms 


and therefore, is subject to qualitative evaluaticn cnly. 
mos saepercach is intended for the following reason. During 
Mmemccncertson phase cf the project, we had only a vague 


intuitive "feel" for such tkinos as reasonable system ccsts, 
acceptable response times, Operator training requirements, 
and the ultimate "user friendliness" that could be achieved. 
Because functional requirements are not well defined at this 
point, an attempt to impose stringent quantitative standards 
is premature. Furthermore, quantitative goals shift the 
emphasis toward achieving system efficiency and away from 
defining system effectiveness. In other words, the purpose 


ef this thesis is te prove a general concept threugh the 


develcrpment of a working prototype. The general ccncept 
includes simplicity cf operation and maintenance. System 
efficiency is not a Significant consideration. The reader 


will notice, however, that system specifications are defined 
using guantifiable ok~ectives where feasible, the distinc- 
tion teing that the systsm requirements determined by the 
Use~ may not be satisfied by the first generation rretetyre. 
As the user becomes more familiar with the capabilities of 
the system, requirements will become more clearly defined. 
With this approach the overall system concept may be valid 
while scme system requirements have not yet been attained 


meee, in the first ceneraticn prototype). 
: E YP 


64 





Fo SYSTEM SPECIFICATIONS (FUNCTIONAL) 


mil systeme specificaticns, SxXCODL tn@sSe Teter e cd. “tC 


kelow, heve been satisfied by the prototype. 
1. Sterage Limitetions 


The protctype cannot adequately hendle the specified 
€00 records . The limiting constraint is available storace. 
All system software resides cn four double-sided, double- 
density 5 1/4 inch fleppy disks (360k bytes each). The 
first twe disks are program disks which are stored directly 
into RAM memory. fhe seccnd two disks contain all of the 
Gata Fase files. Tata base files are read into werking 
storacse cnly when they are being used by the systen. Each 
Marine in the data base requires approximately 550 Lytes of 
Mata (Of 4.4k bits). Due to the DBMS's required cveérhead 
the protctyrpe can acccmmodate approximately 180 Marines. [In 
crder tc achieve the specification requirement of 800 
Marines, a storage device capacity of two megabytes cr more 


Memrecquired (€.g., hard disk drive). 


2. Fetrieval Lizitations 


All standard réports can be retrieved by unit of 
subunit. However, tke standard report does not include the 
facility te retrieve data by other user defined attritutes 
mais facility is, however, included in the nenstandard 
report. The nonstandard report may include up to three user 


defined attributes and attribute descripticns. 


C. SYSTEM SPECIFICATIONS (SON-FUNCTIONAL) 
1. draining 


Mest of the nen-functiconal specifications relate to 


the cperater training effort required +o implement the 


Ce 





systenr. PTs ecumeEnUGgement that the prototype satisfies 


thesé requirements. 


Zee Errcr Checking 


Cperator input is range checked, data type checked, 
and checked for field length (characters in excess of the 
Baximum field length are truncated). In a fully implemented 
System error checking would be expanded and diagnostic error 


messages sent to the user. 


Meapting sor f2tle, pistol and PFT scores into quali- 
Precaticn categories toons e to the user. pe agd2taOn, 
a weight centrol takle is embedded. When an individual's 
height and weigh are entered the weight control table is 
referenced. If his weight is in excess of allowable stan- 
dards fer his height, he is automatically assigned tc thes 
Nweight control program" by assigning a boolean variable of 
meeecG the weight control field in his training record. 


BD. SUBSEQUENT SYSTES DEVELCEMENT 


The next step in the development of the system is to 
place tke system intc the hands of the user to accomplish 
the fcllicwing objectives: 


a. LTefine user training requirements; 


bk. Achieve user familiarity; 


a Evaluate and quantify existing functional regquire- 
rents; 
a Tefine additicnal quantifiable functional require- 
ments; 
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€. T[esign and develop seccnd generation prototyre kased 
cn new set of user defined functional requirements. 


Eo SUMMARY 


The cbjective of the Thesis was to prove the feasibility 
of a concept. It is reasonable¢e to conclude that the concept 
has been preven through the design, the implementation, and 


the demcnstration of a working prototype. 
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DATA ELEMENT DICTIONARY 


All cata elements that exist in the individual training 
data management system are contained in one of seven data 
kase files. The orly exceftion is the data element SSN. 
SSN is a key field field and is therefore included in the 
record structure of multiple files. The following informa- 
tion is used to descrike each data base file: 


A. FIELD 


Fach data element belongs to a specific field within the 
Beeord structure. Fields are numbered sequentially. Or 
example, field 03 in the data base file called Pers is the 
data elénent named Rank. 


E. NAME 


Each ¢Gata field tes a unigue name which always refers to 
mc 86Ssrecific information that is contained ir the data 
field (example; PrimeMOS contains the primary MOS of each 
member in the data base). 


C. TYPE 


Fach data field is defined to be one of three pessitlsa 
data types: 
1. Character (C) 


2. Numeric (N) 


Bee) Logica 1th) 


68 





D. wWiIDT#s 


This characteristic describes the maximum length cf the 
data field. Information in the data field may net excsed 
the numbker of spaces that have been set aside fer that 
Particular field (all characters and blanks are included 
when ccuntirg the number of spaces in a field). 


Ee. DESCEIFIION 

This cclumn contains a harrativ2e descripticn of the 
field. In many instances, examples (Ex.) are used to 
describe the structure of a typical data element. 


Fo CATA BASE FILES 


1. ers (Personnel) 


Field Nane Type width Description 
01 SSN C 09 mx .eceO707765 
02 Name C 30 Last name followed b 


a 
comma, First name and Middle 
Preeeaal., (EX. Smith, Jack EF.) 


03 Fank C O02 Peyeonade (EY. EZ, 

O04 Frimemos C O4 Primar Beate Occupational 
Specialty cea ) 

05 sécros C 04 Secondary 

06 Company Cc 06 Be. cA HHS CO, Ae hy, 

07 Flatcoh cC 09 x. ist ObLAT GUN PLAT, WPSN 

PLAT, HDQTRS 

08 Joindate C 06 The fate (DDMMYY) members 
joined ae une: 

09 EAS c 06 Se tration of Active Service 
(DDMMY Y) 

10 Engepdate.C 06 Dawe Of bis (DD MMYY) 

11 Ccemment iE 01 A boolean variable es ei 
Woe. Indicates that 
comment record exists. . 

12 Hejght c O02 iMgewerddal*s height in itches 

13 Weaght C 03 Pi@wralal'’s weight in peunds 

14 Reece L 01 A boolean Veorsanue Wh /L) £Cr 
which T <ndicatées that the 
ee al 1s On weight 
GCUCerOl. 

aS Gasmask c 01 Gas mask size (S, M, L) 





05 


06 


07 


08 


09 
10 
11 


12 
13 
14 


be, 


16 


Field 
02 


Q3 
O04 


05 


06 
07 


08 
09 


ti 


ees 


COL 


NT 


AIL 


CNI 


EFT TRAW 


EFTIDATE 
ER iclLios 
EFT2RAW 


EPI2DATE 
EeaceLos 
NBC 


KKS 


TAC 


Nth =a] 


T 
N 
I MQUAL 
a 


MDATE 
SCORE 


RFLQUAL 


RFLCATE 
ES TSCORE 


ESTQUAL 
Pol bans 


a 
s 
Wi 
hi 
Ly 


mtn 


NYA AAA AN ANS 


Oo OO 20 OO OON: 
KR) WO np WO NWctr 


03 


03 


06 
01 
03 


06 
01 
06 


06 


05 


ine <Sany GE GED GAD AE SnD ED Cmpeie aD -_ 


© 
On 


DeScription 

EX. 240/07765 
Cede of Conduct contains an 
ner) Lo 5 ie wear Ving 
element (A, 

Has e Ory Of Sits Marine Cor 
contains an entry eos Bic aa 
training element (A,B C) - 
Close Order Derll contains an 
entry for each training 
element (A,B 

Interior Guard contains an 
Shwe y srOr C2chetealning 
elemenk (A,B,C). 

Par Seach 1 contains ar Entry 
for each eae. element 

(Ae pee Ds o 10 ae 
quipment g "On Paes contains 
an entry EOE ee fee Ina 4g 
element (A 
Includes 
for the 
fitness 
Date of 
fitness 


enee Seg Secs 
first anuuel fe ane 
test (RANGE: 0 

fret p ny sical 
Gesey CU MeYY) . 
Rescuers Of Lisse physical 
fvmess test le2,3,U). 
Includes the numeric score 
for the second annual 
Raeeaane fitness test (RANGE: 
Date of the second physical 
fitness test. 
Results of seers 
fitness test {1,2 
NBC contains an eantr 
each training element 


Bcc 


Oe 
(A,5 ,C, 


Marksmanship ccntains an 
entry for oe ea Lik 2 
erement (A,B,C,0,5,F 
Individual ree 1ca éasures 
contains an entry for ¢ach 
tbatniag element (A,B,C,0l,£). 


escription 
240707765 
eee. Qualification (NO, 


SO aL date CODMNYY)< 
ric rifle score (RANGE: 


ae . 
Qualification (CE X55, 


HeeouUAL (DDMMYY) . 
pistol score (Range: 


CoA gl 5 9 
PSTQUAL (DDMMYY). 


ON the 


QOsB ds rhOoB Hs Ie 


Se Gane ie 


nalification 


220 WH ee 
OM" HI Ojs-Om"r— > 
© 


MV iSH-OGM RHO Bw oO 
the 


ORVOZORWOBMNNU 


cte 








Fie 
0 
02 


03 


O04 
05 
06 
07 
08 
09 
10 
11 


12 


Fie 
01 
02 
03 


O4 


COOCOOCO Cr: 
~JION UNF GUND = DD 


1d 


1d 


ON 
© 


a) 
Os 


Kane Type Width Description 

SSN c 09 EX. 240707765 

ELECWAR c 06 EPLeGCe=oOnic Warfare contains 
ah entry for each training 
6lement (A,B,C,D,E,F). 


CME Wia k c 06 Cold Weather Training 
contains an entry for each 
eal ning element (A ,B,C,D.,E 


g 

LAWWAR c 06 Law of War contains an Sa 
for each training element (A, 
BD OGD ie) « 

EGS C 04 Meee anang contelns dan 
entry for each training 
element (A,B,C,D). 

LDRSHP G 06 Leadership Training centains 
Qieceiery £0 Sach craining 
element (A, ,C ,D,5,F) .« 


DRUG c 06 Drug Abuse contains an entr 
Loe each training element (A, 
ALCOHOL c 06 Alcohol’ Abuse contains an 


Sitemmeeos, €eCh c<raliing 
ereniem= (A, 8,C,D,E5,F) - 

HOUMBEL E 06 Human Relations contains an 
entry for seach training 
eteomen=) (A,5,C,D,5,F).. 

BER SGREE eR  C 06 Personal Affairs contains an 
entry for each training 
elemenme (A, 3,0 ,D,5,F} « 


CCM C 06 VEU Teonta nS an entry £cr 
eaiemecrainang element (A,B,C, 
Dieeiiget) ce 

CHRMORED C 06 Character and Moral Fducation 


contains an entry for each 
Gace ound clements (A ,5,C,0,:E, 


SaGURIEY (Aecess infommation) 


Na re Type Width Description 
CSERID C 05 Numeric code that uniquely 
identifies each user. 
GSERPASS C 08 Alphanumeric cede that 
uniquely identifies each 
user... 
AUTHLEV N On Numeric code that defines 
authorization level fer éach 
user. ss 
Alphanumeric that identifies 
the user. 


— 
wa 


NAME Sc 


CCMMENTS ( 


(= 
10 
fr 
ith 
10 
iH 
iF 
rey) 
ct 
ct 
Mm 
(cu 
tH 
ft 
{th 
lo 
li4 
ts 
ig 
lt 
B 
O 
ty 





rs" 


Description 
EX. 240707765 
Unstructured comments. 
Unstructured comments. 
Unstructured comments. 
Unstructured comments. 
Unsz=ructured comments. 
Unstructured cecmments. 


ty 
het 
(wD 
= 
rw 


ANAAANNTYD 
DON POMponN OA: 
MUTT U1. ct 





a 2d OCD 
= © OO 
AAA 
NONI PON 
(NINN 


UNS=rcuctured conments 
Unstructured comments 
Unstructured comments 
UnmStEucucured conments 





APPENDIX B 
DECISION SUFFORT SYSTEM (DSS) DESCRIPTION 


Aw EACKGRCUOND 


The management of training records includes many routine 
tasks that are repetitious and highly structured. Many of 
these tasks inccrporetée low level, well-defined cr semi- 
structured, independent decision making processes. 
Heretofore, these tasks have been manually implemented at 
the ccst cf many manhcurs, and sometimes decisions have been 
rade without making the best use of available informaticn. 
Too often the result has been wasted effort, frustraticn, 


emer anccrrect decisicns. 


EF. FURECSE 


The purpose of this submodule is to demonstrate the 
application of a "first generation" prototype DSS that will 
achieve the follcwing: 

ae Demonstrate typical capabilities cf DSS in the 


training management environment. 


oe Demonstrate the small knowledge base necessary to 


lgplemert a properly designed DSS. 


re Scmve meas sa) 'EUNGCTIONIag  proto<ype" to cain early 
user support and experience in order to further refine 


eystem requirements. 


Cw. FUNCTIONAL DESCRIETION 


The CSS element cf the software system vroduct is imple- 


mented in the "Marksmanship Status Report" routine which is 





Sarred by the "Stancard Rerort Generator", When the user 
selects the "Marksmanship Status Report" from the "Standard 
Report Menu" the DSS submcdul¢e is implemented. ince CSS 
submcdule performs the following functions at the ccmpany 


level: 


ae Caiculates and displays a current "Marksmanship 
etactS Rsport” which includes: 
(1) A summary of rifle and pistol current year 
réequalificaticn data (number of experts, sharp- 


shecters, marksmen, and unqualified). 


(2) The total number cf persons that have fired for 


euadtELCation aguring the current year. 


(3) The percent of experts, sharpshooters, marksmen 
and unqualified shooters based on the total number 
G@ercople tket have fired for qualification during 
the current year. 
oe A company rifle range quota analysis may then be 
Ferftcrmed at the user's discretion. Tas eescusans 
Pmetudes the follewing functions: 


(1) Calculates and displays a tangée quota analysis. 


(2) The follecwing summary information is displayed: 
(a) Total number of Marines fired for qualifica- 


EEoneduring curren* year. 


(b) Total number cf Marines fired for quaiifica- 


eaonedueend Cuerent year, but failed to qualify. 


fey2O2ai number of Marines net required to fir 


BOEMGiatit2Cacaen GUrIng the curpent year. 


(cua lOtdl  Eumber of Merines to qualify btefcre 
the end cf the current year. 
(3) A chart is displayed which shows the amenths 


remaining in the current year, the number cf range 
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ductas allocated for each month, and the tota 
hnumkter of rifle range quotas that remain for the 


Current year. 


(4) AS appropriate, cne of the follewing elements of 
infcrmation is displayed: 
(a) Additional gucta requirements for th 


wD 
bad 
D 
(y) 
H 


(b) Excess guotas allocated for the year 


(c) Quota requirements (number of person left to 

qualify) equal quota allocations. 
oa User's pay ganipulate allocaticns ona scratch pad 
tc vwisvalize different ccmbinations cf monthly quota 
allceations or to determine their effect on end of year 
results (the objective is to manage quotas so that quota 
requirements equal quotas allocated). If desired, a set 
of "scretch pad" range guctas can permanently replace 
the unit's range guota allocations for the remainder of 
the current year. If this option is elected all subse- 
quent calculaticns will ke based on the "new set of 


rarge quota allocations". 


oe MWISER'S VIEW 


1. 


ira 


ummary Information 


Tecisicn making is supported by providing summary 
informaticn for the ccmpany. This snapshot of a unit's 
current marksmanship status demonstrates the degree of 
Success cf the unit's merksmanship training progran. By 
comparing this summary to unit marksmanship objectives the 
Systez can te used as a contrel nechanisn. The follcwing 
types of decisions car be suprerted: 

(1) Evaluate marksmanship training program for weak- 

nesses as indicated by unsatisfactory qualification 


results to date. 


5 








(2) Vaid eee ct egualificaticon objectives for 


feasibility. 


Ds 


itn 


NELOrt 


Tr 
10 


pth 


Tecision making is supported at many levels from the 
Praecen Cr company training NCO to the battalion operaticns 


@meicer. 


3. Interdependence 


iD 


Interdependent (sequential and pcoled) decisions ar 
Suppcerted. For example, if cone company permanently changes 
ratle range quota allccaticns this decision is captured by 
the system and reflected in any subsequent analysis 


4a. Restrictions 


Due to the overriding system requirement fer limited 
user training all precesses are menu driven. This restricts 
Maer degree of user ccntrol and flexibility. This is a 
Significant compromise which reduces its effectiveness as a 
BSS. 


E. BUMPELER'S VIEW 
1. Iialogue 


The dialogue subsystem (implemented in dBase ITI) 
creates the user's view as discussed above. It perferms all 
necessary data base functions, extracts and processes 
summary infcrmaticon. 


“~ 


z- Modelling 


The model base subsystem includes the mathematical 
mmemeeLeccss models necessary to use the "scratch pad" utili- 
ties. For example, a model file is constructed in memcry 


for each unit which has allocated quotas. Quotas can hbe 
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selectively extracted, compared, permanently changed Ey the 
user (prcevided the user has the appropriate system access 
authcrizaticn). Models are not integrated, but each medel 
is fully integrated with the DBMS through the query 
language. Integration of mcdels is a @d¢sirabl¢e feature 
paige, cattalion shculd have the capability to tota 
quotas of all companies on a monthly basis or on a remaining 
current year basis) and could be implemented. This is the 
type cf added reguirement that should be defined by the user 


SUeing Cperetion of this "first generation" prototype. 


Fe. CCNTENTS OF KNOWLEDGE BASE 


Tata Base files (DBF) Conc ainmcua Lit wcataon status of 
each member for the current year and members not required to 
eee nor gGualificaticn during the current year. 

Memory files (MEM) containing rifle range gquctas for 
each ccmpany are stored in separate memory files (see Figure 
B.1 fcr examples). 


_ - o- | 
| CORNGOTA.MEM | 
VARIABLE NAME VALUE | 

QUAN ~ ZS) | 
OPE Zz? | 

BAPE 25 ‘ 

| APR 25 
| QMAY 0 l 
QJUX 50 

Bi UG 50 | 
AUG 30 [ 

| OS DE 00 
QOCT 00 | 

| QNOV 00 ( 
| QDEC Q0 | 
ee oles ee 


Pigqure B.1 Memory File 


74 





APPENDIX C 


ITRS MASTER CONTROL MODOLE LISTING 


A. MASTER ROUTINE 


Routine Name: MasteLr.prg 

Module Name: ITRS Faster Control Module 

Version: 1.0 

meenOr: D.P. Haeusler 

Meee> 20 Oct 83 

Memaabies Used; Thru, Valrfass 

Varjabtles Modified: None 

Variables Created: Xone 

Variarles Released: None 

Files pee hee Ae, Ose ali None 

Temp Files Created: None 

Using Subroutines: None 

Beemerace1ch; This 36 the routine that contrcls the flcw 
of the geregram. This routine is an endless loop which 
eee cates PnewUSeCE FG cUrcNerue computer Off in order tc 
enter ancther system. This routine does not allow the 
users to directly enter the DBMS, the general intent is 
to make the DBMS ccmpletely transparent to users. Some 
house keeping is dcne to insure that the proper disks 
are in Beece : Thais OCCULS pecs sang stored files on 


Se dt Hb te He Ot et tH HE 


the disks and then checking e values. The system will 
meeecentinue untill the disks are in the proper drive. 
ee CCNSCLE ON 
meee LALK OFF 
Sere ESCAEE CFF 
Beene LT 10 AAENDLES 
eeewnke F 1C SWITCH 
PemwoiLEi .NOT. SWITCH 
ERASE 
Gees SAY * REMOVE DISKETIES FROM THE DRIVES" 
@ 16,25 SAY “ PLACE ‘taA* LATA DISK IN DRIVE ‘arn 
petty 2) SAY “ PLAGE "Bt PATA DISK IN DRIVE ‘'Bt* 
@ 23,25 SAY "***** PRESS ANY KEY TO CONTINUE ****x%x" 
men CCNSCLE OFF 
WAIT 
mee CCNSCLE 
mere echE FROM ASMHELLISK ALTDITIVE 
ENDCC 
DO WHILE AAENDLES 
ERASE 
fie? 6SAY " UNITED STATES MARINE CORPS" 
See At 6 OENEAVIDUAL TRAINING RECORD SYSTEM" 
feeic,54 SAY “ (PROTCTYPE) * 
[O PAUSE 
eee so, 25 SAY “4S PRESS ANY KEY TO CONTINUE ***%%" 
SET CCNSCLE OFF 
WAIT 
ee CCNSCLE ON 
DO Access 
Meocchrk FRCM A:MEMDISK ADDITIVE 
SeokE F TO SYSDATE 
O eace Volo to DALE SAND. AAVALPAS 


ne 





So DAY 75,2) )-: 
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Bo FAUSE ROUTINE 


Routine Name: Pausé.prg 

Module Noes ae Master Control Module 
eee ton: MOO 0 « 

Mae ncr: E fagusies 

Date: 40° Nov 83 

Variatles Used: pause 

Variables Modified: pause 

Variatles Created: rfause 

Variables Released: ause 

Files (cpened/closedj): none 

pee crar y Files Created: none 

Using. Boleidess Access.pro, Maintain.p 
Descrifticn: This routine créates a delay 
1s kreing displayed. 


ORE 1 TO pause 
ILE pause < 75 
CRE pause + 1 TC pauses 


THUD tHe He HO He te te te tt 


Al 
0 


tr 
= 


E pause 


am ONs 


H 
T 
DDC 
ELEAS 
ETUEN 


xt ta 
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MNnMMNINAM 
HtnhninrA 
Ooo000o 


CPem wi obobdosdy 


APPENDIX D 
ACCESS MODULE LISTING 


ACCESS ROUTINE 


Routine Name: Access.prg 
Module Name: Access Module 
Wemercns 2-0 
Boenor;: L.P. Hacusler 
Demec, 25 Cct ex 
Variables Used: aavalpass, password, idnum, validid, 
_., counter, fhru, pause, passrec, aailevel 
femelabies Modifieds: thru, aavalpass, vaiidid, idnun, 
passwcrd, counter, paus?, passrec, 
aalevel nee 
Variables Created: aavalpass, password, idnum, validid, 
Collec o, spa USO, tun, PaSsrec, 
aalevel i 
Variakles Released: counter, pause, passrec, validid, 
u 


nes 
Files (PGE Behe aa assecurity (opened/closed) 
Tempcrary Files Created: none 
Pee Suoroutines:> Faster 
Berfera ec icCn: This reutine conducts the logon procedures 
tO gain access intc the system. The routine will query 
the user for a user ID and a Password, after three 
inccrrect respcenses the session will be terminated. 


BEGIN Accéss 


mero thru 

£ 10 AAvalpas 

: WO. password 
. " TO idnun 

mor valadid 

Gy counts: 


eN@me Walldid «AND. NOT. thru 


MS m eririhirs 
Kh 


| 


ENTER USER NUMBER ====> " TO idnunm 
) TO idnun 


b> 
OK” 
20 txt 


oe! 


idnu 


rh 4 
MH bt WD 


tn 


Yd Hence awil-: 
Mit hs i... st 
ct tt 
tj @ 
COO 8 
er 
HH 
ar 
ty — 
G 


tr WewpvAtd Ha ind 
[itt Odo 


in 


HNMNMGam WN we 
OOO rt ii Mee 

ee) 

td 


rx 
Z~ 
c 
WrAH WN 


LaF 
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toite 
Cd ej oe 


Ve aaGe AND. «NOT. thru . AND. COUNTER <> 2 
ounter+t TO counter 


SAN ENVALTD SEs NUABER" 
Sie CEBCr OY OUR, NUMBER * 


tH 

ty 

© nH = 
mt ow 2 OO) 
WIM wR 


rhea wre tite 


ei S 


ta 


Peo Pe es ANDee as NCT. THRU «AND. COUNTER = 2 
Chen + telO sCOOUNTER 


cI 
HNe 


ENL 


3 
thru 


Uo ok KO a kok doko kk ok kak dk 
WaksSeeeKKS TERMINATE ACCESS *%**4*KKKHKN 
Oe oe ae a a a OK Oe a KR KKK EK KH 


ra 
hy 
mya rma 

ad = 2 TY) OS 
iD 

ctty 

MMNn Ail 
© 


HeawmMNnNA Hr HHVeOmNs 
SS Wwromwy 
= ea s tdttict 
RODIAD 
OOO 
D> pos fe 
KS eg PS 


9) 


TO counter 
ieee. AAValpfes -AND. .NOT. tharu 


ACCEET " ENTER PASSWORD ==> " TO password 
eeea CCNSCLE ON 


nS Ed assword) = ‘'cUIT' 
BrecRE ¢ TO thru 


oir ieee S cE So) = passrec 
Silene t TO AaAvalpas 


tJ 
ro 


Ge 
ounter+? TO ccunter 


YRueENVATID PASSS 
Per eneckK YOUR Pa 


mMr2O 
— 3 24 OC 
Wig ~ erWwws 


ORD " 
S 


SA R 
SA SwORD" 


tH 
a) 
tJ 
& Np 
Moun A 
© 


(An 


eee UO 
rt Oe ® fine 


0 COURIER) 710 COUNTER 


ro 
SPiwWwnNwoosd -—einm 
es 8 ftir 
hj 


hROKIN 


Mm fd 
mM = 

tc 
a) 


vo 


QO thru 


TH ok GK KK i i KK KK KK 


WeEKKKKKKAKE TERMINATE ACCESS **¥*#%% 4%" 
0 Bh he a KK KK KK KT 


mHO Mam 
— ed et oo CO) 
Ooo ah 
MMM Feil 
pe fw pe 
<4 e<f 


Stn O ri 
TO tee C) 
min ot 

ht HeWVMrmntna Hr 
1 


counter, pause, passrec, validid, THRU 


ro 
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COMMAND CETERS 


A. 


Routine Name: 
Module Name: 
Versicn: 
Bc DOL: 
Date: 0 


DP. 
Oct 


A 


= 2 


ENCIX £ 


Ez 
INEB MODULE LISTING 


CCMNAND DETERAINEEF ROUTINE 


Cnddeéet.prg 
Command Determiner Module 


Haeusler 
8 3 


Variables 
Varjables 
Variables 


Used: aafinish, 


CMaep ty, 


hei pope 


Modified: aafinish, cmdo 


Created: 


ee helpopt 
rie 


aes Gao O Opt 


Variakles Released: cmdopt, 
Piles (cpened/closed): none 
eee ery PrRoes Cheated: nen 
Using subroutines: Faster 
Descrirticn: 


executed ky the uSer. 


Mt th Sb te th tt SE tt it tH te Ht th tt tt 


STORE £ 10 AAfinish 


CLO WHIL MAE a Sh 
ER 


SELECT © 


e323 & 8 ee oie lh 
aed od od wd = wm) ~J~) ~) ~)} 


(IO Or 8&8 2 e@ @& | 
~J ~) ~~) ~J 


IW 


OV ed od od we (OO) AKITA 
O AnHOwnrP=w = 
= Weer iat 


tr 
td 
- 


See OPTI 


O ry HOH BHVHOV”%R220) 


a 0 
AN 
pore 


(Nin 


'@) 
FON OMMNOHNOPIN OPIS 


> 


tn 


Oo 
fo 


(n 


O 


tn 


HOH WO RO HO 


tn 


in 


E cmdcpt, HELPCET, aafin 


mtn 


aaron 2S ni, 


c 


HO=ZOO we 


ish 


(a) 


Pees 


This reutine creates a menu which 
to determine which cptions of the program will 
y These options ailow «the 
contrcl the use of the DBMS by the progran. 


ONS Ey 
CTIONS' 
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EB. HFLP2 ROUTINE 


Routine Name: Helpz.prg 

Module Name: Maintenance Module 
Mersicn: 32.0.1 

Author: D.P. Haeusler 

Date: 6. . 
Variables Used: helifopt 

Variables Modified: none 

Variables Created; none 

Variatles Released: ncne 

Files (cpened/closed): none 

Temporary Files Created: none 

Meeng subroutines: Faintain.prg, Cnuddet.prg. 
Merserapei0Ons This reutine gives @ brief descripticn cf 
the ccmamands that can be invoked by the user. 


ASE 


Cort tt tb Ot He te th te Ht te tt Ot te Oe 


R 
0 


AD 


a 
eer HELEOPT = 1 
XT 


+ 


A 
A 
E 
D...CATA ENTRY AXCLC SYSTEM FUNCTIONS: This module 
fmeow= tke user to enter data cn individual Marines into 
the data base and to modify data for system functions. 
Installation occurs in this module and any maénipulaticna of 
the data such as corrections and updactes of of the 


information. 


@ 
+ 
ow 


S.e-STANDARD REPCETS: This module produces reports 
that are used on a day in and day out basis. The reports 
are peer a yed Oh the screen and if a Bee covy is réguired 
while the data is still. on the, press the shift oe ae the 
a key at the same time, this wiil print everything cn 


he screén. 


fees NONSTANDARD HEPORTS; This module allows the users 
memecns ruc thier cwr gueries cf the data base. It 
meomets you for the infcr- mation to make a query. Paper. 
copies of the rerforts can obtained by the same methed as in 
eeatdard Re FOrts. 

PNET ERT 

® 23,15 SAY “" #*** DRESS ANY KEY TO CONTINUE ****" 

ae GONSOLE OFF 


Dey 
SET CONSOLE ON 
mast HELPOPT = 2 
FEXT 


Ve... VIER INDIVIDOAL DATA: This module et ViG ee 
the name of an individual whose ITR you wish to see. This 
module dces not allcw you to change any fields all you can 
do is scan the data. 


[eee CEDATE DATA: This module allows you to change cr 
Smeer Gata in any field of any ITR. The ITR must alteady 
exist and is identified by the individuals name. Yeu onal 
need to enter enough cf the nape to be able te distinguis 
1t frem ancther Marines name. 


C..-CREATE AN ITR: This mcedule alles the creaticn cf 
ew ITR's. It will frompt you to enter all the approoriate 
moe Enter the data in one field at a time. If ne data 

c enterec in that field, strike the enter key leaving 
e field empty. 

Lc 

n 


=DBLETE AN I 
Ta e 


TK: This module allows the Data BPase 
tcr to delete reccrds in th2 data base. Once a4 
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record has teen deleted it is gene forever ene Came. £2 
meeeverecc. Access tc this acdule is restrict 


Soe ee ene This module allows the 


Cq 
housekeéfing of the Stem to Fe accomplished by the Data 
Base ee eens eer. ccess to this mnoduleée is restricted. 
®@ 23,15 SAY " #*** DRESS ANY KEY TO CONTINUE ***%" 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDCASE 
FETUEN 


eS 





NCHSTANDARD CCMMAND GENERATOR MOUDLE LISTING 


REPOST ROUTINE 


NCNSTANCARD 
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a2 4,30 SAY "Is" 
@ 4,48 SAY DESC 1 
CASE CCUNT = 2 
aed SAY "aT TRIBUTE> 
@ 2.0 SAY 
@ 4,6 SAY HATETT™ 30730 
@ 4,48 SAY DESC 
@ 6,30 SAY "AND" 
@ 8,6 SAY MATRI2 
@ 8,30 SAY "IS" @ 8,48 § 
@ 1,0 SAY " ATTFIBUSED 
ge.0 SAY : S 
@u°6 SAY MITRIA as 
a2 4,30 SAY "“TSi 
@u°48 SAY DESC1 
@ 6,30 SAY "AND" 
@ 8,6 SAY MATRI2 
@ 8-30 SAY "TSt 
@ 8°48 SAY DESC2 
@ 16,30 SAY “ANE” 
@ 12,6 SAY MATRI 
@ 12,30 SAY "Is" 
@ 12,48 SAY DESC3 
ENICASE 
IF COURT < 3 
@ 20,0 SAY "DO YCU WANT 
USTATEMENT?" 
ACCEPT "(Y/N) ===>" TO P 
IF ERCCEED’ = "y" 
STCRE T TO MBEPEAT 
ENDIE 
ENDIF 
IF EROCEEEL = "NY CR. COUNT 
p22. 0 
ACCEET "PRESS "ENTER! 10 
ENDIF 
FNDDC 
FRASE 
IF CCCNT = 1 
DO CASE 
CASE (SLCT1 >= "A" CANT. 
USE A:PERS 
DISPLAY ALL FCR SATRI1 
NAME,SSN, CATRI1 
IF ECP 
@ 23,50 SAY “SEARCH 
ENDIF 
SiasetsreT1 = "3" .oR. S 
CSE E:EST 
CCEY TO A:TEME FIELD S 
NSEBESCI" 
SELFCT PRIMARY 
USE A:TEMP 
SELECT SFCONDABY 
USE A:PERS 
JCIN TO SICTDATA FOR FE 
NAME,SSN,SATRI1 
CSE SLCTDATA 
DISPLAY ALL 
If ECF 
@ 23,50 SAY “SEARCH 
EXDIF 
CASE (SLCT1 >= "L" JAND. 
CSE F:QUAL 
CCEY TO A:TEME FIFLD S 
NSDESCI" 
SELECT PRIMARY 
USE A:TEMP 


<DESGRPE ALON > 


Sea oe do 


3 


AY ee CASE COUNT 
<DESCRIPTION> 


DOP ENeLUO oe ANOTHER CONDITICN'™; 
ROCEED 


ae 
CONTINUE" TO PROCEED 
SCT inca wr) 
= "§DESC1" OFF FIELDS; 
COMPLETE" 
ne eK? 


SN,&ATRI1 FOR &SATRI1I 


Soul=oacon TLELDS 
COmeuers™ 
SLOr Gane) 


SN, cata i POR GATRI1 


a 





ON HO 


QO HORM 
hn 
ret i 


AAR 
> rw 
(ANA 


CAS 


CAS 


RPO HoOAaa2aAcn 


E 


Ee 


FLECT SECONDARY 
SE A:PERS 
CIN TO SLCTDATA FOR P.SSN=S.SSN FIELDS: 
AME,SSN, SATRI1 
SE SICTDATA 
ISPLAY ALL 
F ECF 
@ 23,50 SAY "SEARCH COMPLETE" 
KDIF 
“PRESS 'ENTER' TO CCNTINUE" TO PROCEED 
Eb a 
F (SLCT1 >= “A" CAND. SLCT1 <= a . AND. ; 
SLCT2 S= "AN CAND. SLOT2 <= "I" 
SE A:PERS 
CCPY TO A: TEMP FIELD NAME,SSN,GATRI1,GATRI2 FCR; 
SATRIT=NEDESCIN 
USE A: TEMP 
DISPLAY FOR SATRI2="6DESC2" OFF FIELDS: 
NAME,SSN,GATRI1,5 ATRI2 
IF EOF 
®@ 23,50 SAY "SEARCH COMPLETE" 
ENDIF 
(SLET? 5= "A" LAND. SLOTI <= "E") .AND.; 
(Sicr2 = "jg" JOR. SICT2 = "Kt) 
See Bb: EST 
COPY TO A: TEMP FIELD SSN,SATRI2 FOR SATRI2 =; 
"NE DESC2" 
SEIECT ERIMARY 
USE A:TEMD 
SELECT SECOXLARY 
USE A: PERS 
JCIN TO SLCILATA FCR E.SSN=S.SSN FIELDS; 
NAME,SSN,SATRI1,GATRIZ 
USE SLCTIDATA 
DISPLAY FOR SATRI1 = "SDESC1" OFF FIELDS: 
NAME,SSN, GATRI1,SATRI2 
IE EOF 
2 23,50 SAY “SEARCH COMPLETE" 
ENDIF 
(SLCT1 >= "A" LAND. SLCT1 <= wEn} LAND. : 
(Sict2 d= "EL" CAND. SLICT2 <= "yt 
SE B: QUAL 
COEY TO A: TEME FIELD SSN,GATRI2 FOR SATRI2 =: 
"NS DESC2" 
SELECT ERIMAFY 
USE A: TEMP 
SELECT SECO NEARY 
USE A:PERS 
JCIN TO SLCILATA FCR E.SSN=S.SSN FIELDS; 
NAME,SSN,GATEI1,GA TRI z 
USE SLCIDATA 
DISPLAY FOR GATRI1 = "SDESC1" OFF FIELDS: 
NAME,SSN,SATHI1,CATRI2 
IF FOF 
@ 23,50 SAY "SEARCH COMPLETE" 
ENDIF 
SICT1 = "Jd" .OR. SLCI1 = "K") .AND.;: 
SICT2 >= "A" CAND. SICT2 <= "I"j 
SE A:PERS 
COPY TO A:TEME FIELD NAME,SSN,SATRI2 FOR SATRI2 
"NS EESC2" 
SELECT ERIMAFY 
OSE A: TEMP 
SELECT SECONLARY 
USE B: EST 
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COFY TO A:TEMP FIELD SSN,SATRI2 FOR SATRI2 =: 
NSDESC2" 
USE B: QUAL 
COFY TO A: TEME2 FIELD SSN,SATRI1 FOR SATRI1 =: 
ubpEsCcCI" 
SELECT FERIMABY 
USE A: TEMP 
SELECT SECONIARY 
USE A: TEMP2 
JCIN TO A:TEMP3 FOR E.SSN=S.SSN FIELDS 
SSN,SATRI1,&ATRI 
SELECT ERIMARBY 
USE A: TEMP3 
SELECT SECONLARY 
USE A:PERS 
JCIN TO SLCILATA FOR F.SSN=S.SSN FIELDS: 
NAME,SSN,SATRI1,SATRIz 
USE SLCTDATA 
DISPLAY ALL 
IF EOF 
@ 23,50 SAY "SEARCH COMPLETE" 
ENDIF 
(SLCT1 >= "I" ,AND. SICT1 <= "N") .AND.: 
(stcr2 >= "EL" SAND. SLCT2 <= "NI 
SE B: QUAL 
COPY TO A:TEMP FIELD SSN,GATRI1,6ATRI2 FOR EATEI1; 
= "SDESCI" CAND. SATRI2 = "SDESC2" 
SELECT ERIMAFY 
USE A: TEMP 
SELECT SECONIARY 
USF A:PERS 
JCIN TO SLCTEATA FOR P.SSN=S.SSN FIELDS: 
NAME,SSN,€ATEI1,SATRI2 
USE S$LCTDATA 
DISPLAY ALL 
IF EOF 
@ 23,50 SAY "SEARCH COMPLETE" 
ENDIF | 
"DRESS 'ENTER® TO CCNTINUE" TO PROCEED 
= 3 
(sictt >= "AM LAND. SLCT1 <= "I") 
CASE {$ict2 >= "A" AND. SLCT2 <= "I" 
[O CASE 
CASE (SLCT3 >= "A" AND. SLCT3 <= "I") 
USE A:PERS 
COPY 10 A: TEMP FIELD NAME, SSN, SATRI1,; 
SATRIZ, SATRI3 FOR SATRI1I="SDESC1" 
OSE A:TEMP 
COPY 10 A:TEMP2 FIELD NAME, SSN, SATRI1,; 
SATRIZ, SATRI3 FOR SATRI2="spESC2" 
USE 2:TEMP2 
LISPLAY FOR SATIRI3="SDESC3" OFF FIELDS: 
NAME, SSN, GATBI1, SATRI2, SATRI3 
®@ 22,50 SAY "SEARCH COMPLETE" 
ENDIF 
CASE (SLCT3 = "J" OR. SLCT3 = "K") 
Ses ES EST 
COPY 10 A:TEMP FIELD SSN,SATRI3 FOR SATEI2: 
= "SrEsSc3M 
SELECT ERIMARY 
USE A:TEMP 
SELECIL SECONDABY 
USE A:PERS 
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US fs ESL 
HOM TO SLETDATA FOR P.SSN=S.SSN FIELDS: 
NAMIE COON, CALTRIt, GSATRI2, &ATRI3 
USE SICTDATA 
Ditseienrwe cen CAtRE2 = “GDESC2Z" .AND. GATEI3: 
“Begbroes, CChnerieEL DS NAME, SSN, GATRI1T,; 
SATRIz, SATRI3 
Tiagoes © § 
@ 22,50 SAY "SEARCH COMPLETE" 
ENDIF 
ASE 


"IM JAND. SLCT1 <= "Nt) 
RS / * 


=—awanND.s SLCT2Z <= "TI" 
ERs oes AND. SLCT3 <= I") 
Sele E LD NAME, SSN gee ATRIZ, ; 


oun 


MOeOHMH wi N 


* 
J PE 
SLCT 
AS 
SE (SI 
USE A: 
COPY T 
SATRI= aa SATRIZ="EDESC2"  VAND.: 
SATRIZ="EDESC3" 
SELECT PRIMARY 
USE sTEMP 
SELECT SECONDABY 
USE :QUAL 
JOIN TO SLCTLATA FOR P.SSN=S.SSN FIFLDS: 
NAME, SSN, GATRI1, SATRI2, SATRI3 
OSE SICTDATA 
DISPLAY FOR SATRI1="SDESC1" OFF FIELDS; 
NAME, SSN, GATRI1, GATRI2, SATRI3 
® 23,50 SAY "SEARCH COMPLETE" 
ENDIF 
SE (SICT3 = "J" .OR. SLCT3 = "K") 
USE E:EST 
COPY TO A:TEME FIELD SSN,G&ATRI3 FOR SATRI3; 
= "SDESC3" 
USE E:QUAL 
COPY TO A:TEMD2 FIELD SSN,SATRI1 FOR: 
SATRI1="SDESCIt 
SELECT PRIMARY 
USE A:TEMD 
SELECT SECO NLDABY 
USE A:TEMP2 
JOIN TO A:TEME3 FOR P.SSN=S.SSN FIELCS: 
SSN, SATRI1,. SATRI3 
SELECT PRIMARY 
USE A:TEMP3 
SELECT SECONLABY 
USE 2:PERS 
JOIN TO SLCTDATA FOR P.SSN=S.SSN FIELDS: 
NAME, SSN, GATHI1, SATRI2, EATR 
USE SICTDATA 
DISPLAY FOR SATRI2 = "SDESC2": 
OFF FIELDS NAME,SSN,GSATRI1,GATRI2,6ATRI3 
@ 23,50 SAY “SEARCH COMPLETE" 
ENDIF 
SE (SLCT3 >= "L" AND. SLCT3 <= "NM 
USE E:QUAL 
COPY TO A: TEMP FIELD SSN,SATRI1,SATRI3: 
FOR SATRI3 = "SDESC3" .AND. SATRI1 =: 
"SDESCiN 
SELECT PRIMARY 
USE A:TEMP 
SELECL SECONDARY 
USE A:PERS 
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ENDCAS 
ENICASE 
#x BEGIN EST / * / * 
CASE (SLCT1 = "J" .OR. SLCT1 = "K") 
**KPEGIN EST / EERS / * 
[LO CASE 
CASE {sicr2 >= "A" [AND. SLCT2 <= "I") 
DO CASE 
CASE (SICT3 >= "A" .AND. SLCT3 <= "I") 
USE A:PERS 
COPY TO A:TEMP FIELD NAME, SSN, SATRI2,; 
SATRI2 FOR GATRI2 = "SDESC2" LAND. SATRI3: 
= "§PEScaN 
USE EsEST . 
COPY TO A:TEMP2 FIELD SSN,&SATRI1 FOR: 
SATRII=R"EDESCI" 
SELECT PRIMARY 
USE A:TEMP 
SELECT SECONCDARY 
USE A:TEMP2 
DISPLAY FOR P.SSN=S.SSN OFF FIELDS NAME,: 
SSN, SATRI1, GATRI2Z, SATRI3 
IF ECE 
® 22,50 SAY "SEARCH COMPLETE" 
ENDIF 
CASE (SLCT3 = "J" .OR. SLCT3 = "K") 
WSs £cest 
COPY 10 A:TEMP FIELD SSN,SATRI1,$ATEI3: 
FOR SATRII=Z="SDESCI" CAND. SATRIBZ="SDESC3" 
SELECT PRIMARY 
USE A:TEMP 
SELECT SECONDARY 
USE BA:PERS 
DISPLAY FOR P.SSN=S.SSN -.AND. S.SATRI2 =: 
NEDESC2" OFF FIZLDS NAME, SSN, SATRI1,; 
SATRIz, SATRI3 
IF ECE 
®@ 72,50 SAY "SEARCH COMPLETE" 
ENDIF 
CASE (SLCT3 >= "L" LAND. SLCT3 <= "NYY 
USE ESOUAL 
COPY TO A:TEME FIELD SSN,SATRI3 FOR GATRI3: 
= "SPESC 3 
Sr E2sesT 
COPY 10 A: TEMP2 FIELD SSN,SATRI1 FOR: 
SATRII=E"EDESCI" 
SELECT PRIMARY 
USE A:TEMD 
SELECT SECONDARY 
USE A:TEMD2 
JOIN $0 SLCTDATA FOR P.SSN=S.SSN FIELDS: 
SSN, GSATRI1, SATRI3 
SELECT ERIMARY 
USE SICTDATA 
SELECT SECONDARY 
USE A:PERS 
DISPLAY FOR P.SSN=S.SSN .AND. SATRI2 =; 
"SDESC2" OFF FIELDS NAME, SSN, GATRI1,: 
SATRI2, SAT RI3 
IF ECF 
®@ 23,50 SAY "SEARCH COMPLETE" 
INDIE 
ENDCASE 
CASE (SLCT2 >= "L" .AND. SLCT2 <= "NYY 
DO CASE 
CASE (SLCT3 >= "A" AND. SLCT3 <= "I") 
USE E:QUAL 
COPY 10 A:TEMP FIELD SSN,SATRI2 FOR SATRI2: 
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= "&DESC2" 
USE E:EST ’ 
COPY TO A:TEMPZ FIELD SSN,SATRI1 FOR: 
SATRII="EDESC1" 
SELECT PRIMARY 
USE A:TEMD 
SELECT SECONDAFY 
USE A:TEMP2 
JOIN €0 SLCTLDATA FOR P.SSN=S.SSN FIELDS: 
SSN, SATRI1, SATRI2 
SELECT PRIMARY 
USE SICTDATA 
SELECT SECONDARY 
USE A:PERS 
DISPLAY FOR SATRI3 = "SDESC3" .AND.: 
P.SSN=S.SSN OFF FIELDS NAME, SSN, SATRI1,:;: 
SATRI2, SATRI3 
IF ECE 
® 23,50 SAY "SEARCH COMPLETE" 
ENDIF 
SE (SLCT3 >= "L'" CAND. SLCT3 <= "NM) 
USE E:QUAL 
COPY 10 A: TEMP FIELD SSN,GATRI2,GATRI3:; 
FOR €ATRIZ="EDESC2" [ AND. GSATRIB="SDESC3" 
USE E: EST 
COPY TO A:TEME2 FIELD SSN,SATRI1 FOR; 
SATRI1="SDESC1" 
SELECT PRIMARY 
USE A:TEMD 
SELECT SECONDARY 
USE A:TEMP2 
JOIN 10 SLCTDATA FOR P.SSN=S.SSN FIELDS: 
SSN, EATRI1, GSATRIZ, GATRIB 
SELECT PRIMARY 
USE SICTDATA 
SELECT SECONDAFY 
USE 2&:PERS 
DISPLAY FOR P.SSN=S.SSN OFF FIELDS NAME,: 
SSN, €6ATRI1, EATRI2, SATRI3 
IF ECE 
@ 22,50 SAY "SEARCH COMPLETE" 
ENDIF 
SE (SICT3 = "J" [OR. SLCT3 = "K") 
USE E:EST 
COPY TO A:TEME FIELD SSN,GSATRI1,SATRI3: 
FOR GATRII="SDESC1" LAND. SATRIS="SDESC 3" 
USE E:QUAL 
COPY 10 A: TEMPZ FIELD SSN,SATRI2 FOR: 
SATRIZ="EDESC2" 
SELECT PRIMARY 
USE A:TEMP 
SELECT SECONDAFY 
USE A:TEMP2 
JOIN TO A:TEME3 FOR P.SSN=S.SSN FIELES: 
SSN, SATRI1, GSATRIZ2, SATRI3B 
SELECT PRIMARY 
USE A:TEMP3 
SELECT SECONLASY 
USE A:PERS 
DISPLAY FOR P.SSN=S.SSN OFF FIELDS NAME,; 
SSN, SATRI1, EATRI2, SATRI3 
IF ECE 
@ 22,50 SAY "SEARCH COMPLETE" 
ENDIE 
CASE 
ICT? = "J" (COR, SLCT2 = "K") 
SE (SICT3 >= "A" [AND. SLCT3 <= "I") 
USE E:EST 
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COPY TO A:TEME FIELD SSN,&SATRI1,GATRI2 ; 
FOR SATRII="EDESC1" LAND. SATRI2Z="EDESC2" 
SELECT PRIMARY 
USE A:TEMP 
SELECT SECONDABY 
USE A:PERS 
DISPLAY FOR P.SSN=S.SSN .AND. SATRI3 =: 
"& DESC3" OFF FIELDS NAME, SSN, SATRi1,: 
SATRI2, SATEI3 
IF ECE 
@ 23,50 SAY "SEARCH COMPLETE" 
ENDIF 
SE (SICT3 >= "L" .AND. SLCT3 <= "NN 
USE E:EST 
COPY TO A:TEME FIELD SSN,SATRII,GATRI2; 
FOR SATRII="SDESC1" AND. SATRIZ="SDESC2" 
USE E:QUAL 
COPY TO A:TEME2 FIELD SSN,SATRI3 FOR: 
SATRI3 = "SDESC3" 
SELECT PRIMARY 
USE A:TEMP 
SELECL SECONDABEY 
USE A:TEMP2 
JOIN IC SLCTLATA FOR P.SSN=S.SSN FIELDS: 
SSN, GATRI1, SATRI2, &ATRI3 
SELECT ERIMARY 
USE SICTDATA 
SELECT SECONDARY 
USE 2:PERS 
DISPLAY FOR P.SSN=S.SSN OFF FIELDS NAME,: 
SSN, SATRI1, EATRIZ, SATRI3 
IF ECF 
@ 23,50 SAY “SEARCH COMPLETE" 
ENDIE 
SE (SICT3 = "J" .OR. SLCT3 = "K") 
USE A:EST 
COPY TO A:TEMP FIELD SSN, SATRI1, SATRI2 
SATRI2 FOR SATRI1 ='"SDESCI" CAND. SATRI2 
= "§LESC2" LANE. SATRI3 = "SDESC3" 
SELECT PRIMARY 
USE A:TEMP 
SELECT SECONDASY 
USE 2A:PERS 
DISPLAY FOR P.SSN=S.SSN OFF FIELDS NAME,; 
SSN, GATRI1, SATRI2, SATRI3 
IF &CE 
@ 23,50 SAY "SEARCH COMPLETE" 
NDIE 
ASE 
‘ENTER' TO CONTINUE" TO PROCEED 
Mie 2c? 2? 
OUNT, 
ATRL2?22 
SUN oe ots 
DESC?222? 
Mp 
4D 2 
MP3 


98 


aewse 





E. NCNSTANCARD HELP ROUTINE 


* ROUTINE NAME: NOSTLHLP.DRG 

* MODULE NAME: NCNSTAKDARD REECRT GENERATOR 

* VERSION: 4.1.0 

* AUTHCR: R.E. PRUIETI 

* DATE: 10FEBSU 

* VARIABLES USED: NOKE 

* VARIABLES MODIfIED: NONE 

* VARIABIES CREATED: EROCEED 

* VARIAELES RELEASED: NONE 

* FILES CPENED/CIOSEL:NONE 

* TEME FILES CREATED: NONE 

* USING SUBROUTINES: NCSTDRPT. ERG (420) 

* DESCRIETICN: THIS ECUTINE SUPPLIES RESPONSE T0 THE USER'* 
* RECUEST FOR "HELP" WHILE IN THE NONSTANDARD REPORT MENU. 
ERASE 

@ 0,25 SAY "NONSTANDARD COMMAND GENERATOR" 

@2.0 SAY "LOCATE ALL MARINES THAT SATISFY THE FOLLCWING: 
CONDITICN:" 

a4,0 SAY " <ATTRIBUTED <DESCRIPTORD>" 

24:0 Say " — pao 

a25,0 SAY " ee " 

@6,0 say "t i 

a27,0 SAY RANK Is FS ott 

SAY ee eee——e—e—e—“‘“‘(‘“‘ C*z” i" 

@%10,C SAY " —— " 

meee 6SAY * UP IC THREE CONDITION STATEMENTS MAY BE: 

JOINED * 

@12,C SAY "t FOR EXAMPLE " 

@ 13.0 SAY "LOCATE ALL MARINES THAT SATISFY THE FOLLCWIKG: 
CONDfTICNS " 

@14,0 SAY " <ATTIRIBUT E> <DESCRIPTORD>" 

@15,0 Say " _ eee ee: 

@16,C SAY " RItR aS cee i 

@ 17,0 SAY " AND " 

meie.c SAY “ CCMPANY nS A co * 

@ 19,0 Say " AND " 

@ 20,0 SAY "t PRIMARY MOS is 0331" 

@ 21.0 SAY “JOINING TEESE THREE CONDITION STATEMENTS GIVE; 
YOU THE NAME * 

@22,0 SAY "AND SSN CF ALL F5'S IN A CO. THAT HAVE A 0331: 
ERIMARY MOS " 

ae2, 0 

ACCEET "ERESS *"ENTER* TO CONTINUE" TO PROCEED 

RETURN 
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REFORT FORM Bz¥CSRPT FCR COMPANY = FOURCO .AND.; 
CASE 1 (NUNEE) eat aoe: 1 (MELAT) = 'B! 
REEORT FORM Bz4CSRPT FOR COMPANY = FOURCO AND. ; 
Case 1 (MONTE) (= TEs AND. !(MEPLAT) = '"C? 
RFEORT FORM B:WCSRPT POR COMPANY = FOURCO .AND.; 
CASE L(HONEZ) = TL", AND. !(MPLAT) = 'D? 
FEEORT FORM B:MOSRPT FOR COMPANY = FOURCO .AND.; 
ELATCCN = FOUREILT 
CASE 
EASE MUNIT, MELAT 
UER 
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Fe. PERSCNNEL DATA RCUTIRE 


* ROUTINE N&ME: PERSLATA.PRG 
* MODULE NAME: STANDAED REPCRT GFNERATOR 
* VERSICN: 5.10. 
# AUTHCR: R. E. FRUIEIT 
* DATE: 21NCV83 
* VARIABLES USED: MUXNIT, MPLAT, ONECO, TWOCO, THREECO, 
* FOURCC, CNEPLT, TWCELT, THREEPLT, FOURPLT 
* VARIABLES MODIFIED: NONE 
* VARIABLES CREATED: COUNT, PROCEED 
* VARIABLES RELEASED: COUNT, EROCEED 
* FILES (CEENED/CLOSEL) : A: EERS INDEX A:ALPHPERS 
* TEME FILES CREATED: NONE 
* USING SUEROUTINES: STIDRPT.PRG 
* DESCRIETICN: THIS IS A CONTRCL ROUTINE WHICH CREATES THE 
* PERSCNNEL ROSTER FCR THE UNIT SPECIFIED BY THE USER'S 
# RESECNSE 10 THE SLCTUNIT MENU(5.1.0). 
FRASE 
USE A:EEFS INDEX A: ALEHPERS 
GOTO OP 
STORE 0 TO COUNT 
DO WHILE .NCT. ECF 
[O CASE 
CASE !(MUNIT) = 'E! 
[O PERSRP 
STCRE COUNT + 1 T0 COUNT 
CASE ! (MONIT) = ‘A LAND. !(MPLAT) = ‘ES 
IF COMPANY = OKECO 
[C PERSRPT 
STCRE CCUNT + 1 TO CCONT 
ENLIF 
CASE t (MONT 2) = '2' AND. !(MPLAT) = ‘a! 
IF COMPANY = ONZCO .AND. PLATOON = ONEPLT 
CO PERSRPT 
STORE COUNT + 1 TO COUNT. 
ENDIF 
CASE t (MONT) = "AY .AND. !(MPLAT) = 'B? 
IF COMPANY = ONECO .AND. ELATOON = TWOPLT 
[O PERSEPT 
STCRE CCUNT + 1 TO CCUNT 
ENCIF 
CASE (MONT T) = 'A [AND. !(MPLAT) = 'C! 
IF COMPANY = ONECO .AND. PLATOON = THREEPLT 
DO PERSRPT 
STORE COUNT + 170 COUNT 
ENDIF 
CASE !(MUNIT) = "A" LAND. ! (MPLAT) = 'D! 
IF COMPANY = ONECO .AND. PLATOON = FOURPLT 
[C PERSRPT 
STCRE COUNT + 1 TO CCUNT 
ENDIF 
CASE t (NONE T) = 'E! ,AND. !(MPLAT) = ‘Et 
IF COMPANY = TWCCO 
DO PERSRPT 
STORF COUNT + 1 TO COUNT 
ENDIF 
CASE t (MONET) = 'Et .AND. !(MPLAT) = ‘a? 
TF COMPANY = TRCCO .AND. ELATOON = ONEPLT 
DO PERSRPT 
STCRE CCUNT + 1 TO CCUNT 
ENCIP 
CASE !(MUNIT) = 'E' .AND. !(MPLAT) = "3B! 
IF COMPANY = TROCO .AND. PLATOON = TWOPLT 
DO PERSRPT 
STORE COUNT + 1 TO COUNT 
ENDIF 
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Seer ' (NUNIT) = “Et .AND. ! (M4 PLAT) Tet 
IF COMPANY = ThCCO .AND. PLATO COON =r koe t 
LO PERS RPT 
Suens COUNT + 1 TO CCUNT 
ENCIF 
moe (UUNTT) = "E* AND. !(MPLAT) = 'D* 
TS COMPANY = TACCO .AND. FELATOON = FOURPLT 
POwe oho ke. 
Sleke CCUNT + 1 PO CCONT 
NEF 
Sack Peony ee Cumann.) | (MELAT) = 'E* 
IF COMPANY = THREECO 
DO PERS RPT 
meoers COUNT + + TO COUNT 
ENDIF 
ASE a roeniy y = CU niD. | MPLAT) = ‘A’ 
IP CC¥PANY = THRESCO .ANL. PLATOON = ONEPLT 
Memeo nos Red / 
peers CCUNT + 1 TO CCUNT 
ENE Lr 
eA Sk sy a ay = Co weanoe s (ME LAT) = ‘B* 
TF COMPANY = TEREECO .AND. PLATOON = TWOPLT 
DOSPERS hPL 
Secne COUNT + 1 TO CCUNT 
ee 
Meer FS {HNUNIT) = *Ct AND. ! ek =e Ce 
MeSCCHPANY = THSEECO .AN PIRE CON =" THREESLT 
PORPE RS RET 
ae SeuNrl + 120 CCUNT 
CASE !(MUNIT) = 'C* .AND. SE og D* 
IF COMPANY = TEREECO .AND. oon = FOURE EE 
DO PERS APT 
ZENDIP COGNT =) 1-10) COUNT 
at mune) = §"£" AND. ! (MPLAT) = 'E* 
oes = FCURCO 
One o 
ST CRE SeUNTS + 71 10 CCUNT 
EN UIF 
mere S (MUNIT) = *C' .AND. !(MEFLAT) = ‘At 
IF COMPANY = FCURCO .AND. PLATOON = ONEPLT 
BOP EE RS ROT 
SLerRe CCUHT + 1 TO COUNT 
EN PLE 
Meee lt (MUNTIT) = 'C* .AND. ! (MPLAT) = ‘"B* 
IF COMPANY = FCURCO . AND. FLATOON = TWOPLT 
Pome EXORPT 
seeks COUNT + 1 TO COUNT 
PL IF 
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Fo EST FOSTER ROUTINE 


* ROUTINE NAME: ESTRCST. PRG 
* MOLULE NAME: STANDARD REPCRT GENERATOR 
* VERSICN: 5.12.0 
* AUTECR: R. E. PRUIEIT 
* DATE: 20DEC83 
* VARIAELES USED: MUNIT, MPLAT, ONECO, TWOCO, THREECC, 
* POURCO, CNEPLT, TWCELT, THREEPLT, FOURPLT 
* VARIABLES MODISIED: NONE 
* VARIABLES CREATED: COUNT, PROCEED 
* VARIABLES RELEASED: COUNT, EFOCEED 
* FILES (CEENED/CLOSEL): A: PERS INDEX A:ALPHPERS, E:£EST 
* INDEX B:ESTSSN (ALL FILES ARE CLOSED). 
4 TEME FILES CREATED: NONE 
4 USING SUBEBOUTINES: SZIDRDT.PRG 
* DESCRIETICN: THIS IS A CONTRCL ROUTINE WHICH CREATES THE 
* PFRSCNNEL ROSTER FCH THE UNIT SPECIFIED BY THE USER'S 
* RESECNSE TO THE SLCIUNIT BEND (5.1.0). 
FRASE 
SELECT PEIMARY 
CSE A:EERS INDEX A: ALEHPERS 
SELECT SECONDARY 
USE B:FST INDEX B:ESTESN 
SELECT PRIMARY 
GOTC TOP 
STORE 0 TO COUNT 
DO WHILE .NCT. EO 
LO CASE 
CASE (MONET) = (Et 
DO ESTRPT 
SICRE COUNT + 1 TO COUNT 
CASE !(MUNIT) = "A" AND. !(MPLAT) = tEt 
IF COMPANY = OXECO 
DO ESTRPT 
SICRE CCUNT + 1 TO CCUNT 
ENCLIF 
CASE t (MUNT 7) = '2¢ |AND. !(MPLAT) = ‘At 
IF COMPANY = ONECO .-AND. PLATOON = ONEPLT 
DO ESTRPT 
STORE COUNT + 1 TO COUNT 
ENDIF 
CASE !(MUNIT) = ‘At .AND. !(MPLAT) = "Bt 
IF COMPANY = ONECO .AND. ELATOON = TWOPLT 
DO ESTRPT 
STORE CCUNT + 1 TO CCUNT 
ENEIF 
CASE t (MONT T) = ‘Et .AND. !(MELAT) = 'Ct 
IF COMPANY = ONECO .AND. PLATOON = THREEPLT 
DO ESTRET 
STORE COUNT + 1 TO COUNT 
ENDIF 
CASE (MONIT) = 3" AND. !(MPLAT) = ‘Dt 
F COMPANY = ONECO .AND. PLATOON = FOURPLT 
DO ESTRET 
SICRE CCUNT + 1 TO CCUNT 
ENLIF 
CASE! (WUNTT) = 'Et .AND. !(MELAT) = ‘zt 
IF COMPANY = THCCO 
DO ESTRPT 


ENDIF COUNT + 1 TO COUNT 


eo sete LT : (Ef .,AND. ! (MPLAT) = ‘A* 
ees ThCCO .AND. PLATOON = ONEPLT 
wow k 2 
ST CRE ECUNE + 1 1OSceuht 
ERE F. 
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EST BEFCRT FORMAT KOUTINE 
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Ve. SWIM QUALIFICATICN ROUTINE 


* ROUTINE NAME: SWIMCUAL.PRG 
* MODCGLE NAME: STANDAKD REPCRT GENERATOR 
* VERSICN: 5.13.0 
* AUTECR: R. Es PRUTETT 
4 DATE: 20DEC83 
* VARIAELES USED: MUNIT, MPLAT, ONECO, TWOCO, THREECC, 
# FOURCO, CNEPLT, TWCELT, THREEPLT, FPOURPLT 
* VARIABLES MODIFIED: NONE 
* VARIAELES CREATED: EROCEED, COUNT, SITOTAL, S2TOTAL, 
* S3ICTAL, UOTOTAL 
* VARIAELES RELEASED: COUNT, PROCEED, MSSN, S1TOTAL, 
* S2ICTAL, S3TOTAL, OCTOTAL, RCW 
* PILES {CEENED/CLOSEL) A: EERS INDEX A:ALPHPERS 
* TEME FILES CREATED: NONE 
4 USING SUBROUTINES: STDRPT.PRG 
* DESCRIETION: THIS FOUTINE DISPLAYS THE SWIM QUAL REPCRT 
* FOR THE SELECTED UKIT. THE SWIM QUAL REPORT CONSIST OF 
* EBACE MARINES NAME, RANK, UNIT NAME, AND SWIMMING 
# QUALIFICATION STATUS. ‘AT THE END OF THE REPORT, SUMMARY 
* DATA IS LISPLAYED WEICH INCLUDES THE TOTALS FOR’ EACH 
; QUALIFICATION CATEGCRY ANL THE OVERALL TOTAL FOR THE 
ERASE | 
d 12427 SAY "SWIM QUALIFICATION REPORT" 
g 
aCCEET "NETRESS ‘ENTER!’ KEY TC CONTINUE" TO PROCEED 
SELECT EEIMARY 
CSE A:EERS INDEX A:AI1EHEERS 
GOTO TOP 
STORE 0 TI0 SITOTAL 
STORE 0 10 S2TOTAL 
STORE 0 IC S3TOTAL 
STORE 0 TO UOTOTAL 
STORE 0 10 COUNT 
LO WHILE .NCT. EOF 
DO CASE 
CASE !(MUNIT) = "EF? 
DO SWIMRPT 
STCRE COUNT + 1 TO COUNT 
CASE t (MONT 7) = 'A'SAND. !(MPLAT) = 'E! 
IF COMPANY = ONECO 
DO SWIMEPT 
STCRE COUNT + 1 TO COUNT 
ENDIF 
CASE !(MUNIT) = "2" .AND. !(MPLAT) = 'A! 
IF COMPANY = OXECO .AND. ELATOON = ONEDLT 
DO SWIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENLIF 
CASE t (MONT T) = '2! |AND. !(MELAT) = ‘Bt 
IF COMPANY = ONECG .AND. PLATOON = TWOPLT 
DO SWIMRDT 
STORE COUNT + 1 TO COUNT 
ENDIF 
CASE !(MUNIT) = 'A' .AND. ! (MPLAT) = 'C! 
IF COMPANY = OXECO .AND. PLATOON = THREEPLT 
DO SWIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENLIF 
CASE !(MUNTT) = '2* .AND. !(MPLAT) = 'D! 
TE COMPANY = ONECO .AND. PLATOON = FOURPLT 


DOwsaih RPT 
Suen COUNT + 1 TO COUNT 
END2F 
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Gast ! (NUNIT) ee er Dio CELA T) = "Es 


IF CCMPANY = TuCCO 
TO SWIN RPT 
SUCREeCCUNT + 1 TG CCUNT 
BNI 
eee + (UNIT) = "E* .AND. ! (MELAT) = ‘A! 
IF COMPANY = TWCCO .AND. PLATOON = ONEPLT 
DO SWIMRPT 
Secer COUNT + 1 TO COUNT 
ENOL 
eee, (NUNIT) = "E* .AND. ! (MPLAT) “Be 
COMPANY = THCCO .AND. ELATO CON = TWOPLT 
DO SWIMRPT 
seonr CCUNT + 1 TO CCUNT 
EET 
ery SE yeauet a) = "E* .AND. ! (MFELAT) “Cs 
COMPANY = TKOCO .AND. PLATOON = THREEPLT 
BO Ski key 
Sucnn, COUNT 4+ 1:TO COUNT 
in DRETS 


= tps 


E 
Mase f(MUNIT) = "Ef .AND. ! (MPLAT) 
MmmcOrPaNyY = TwCCO .AND. ELATOON = FOURPLI 


DO SWIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENCIF 
CASE !(MUNIT) = 'C' .AND. !(MPLAT) = "ES 
IF COMPANY = TEREECO 
DO SWIMRPT 
STCRE CCUNT + 1 TO COUNT 
ENDIF 
CASE t (AUNT) = 'C' AND. t (APLAT) = ar 
IF COMPANY = THREECO .AND. PLATOON = ONEPLT 
LO SWIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENLIF 
CASE (MONT T) = 'C! ,AND. !(MPLAT) = 'B! 
IF COMEANY = TEREECO .AND. PLATOON = TWOPLT 
DO SWIMAPT 
STCRE COUNT + 1 TO COUNT 
ENDIF 
CASE (MONTE) = 'C' ,AND. t (MPLAT). = ' 
IF CCMPANY = THREECO .AND. PLATOON = THREEPLT 
DO SWIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENCIF 
CASE (MONET) = 'C! ,AND. !(MELAT) = 'D* 
IF COMPANY = TEREFECO .AND. PLATOON = FOURPLT 
DO SWIMRPT 
STCRE CCUNT + 1 TO COUNT 
FNDIP | 
CASE !(MUNIT) = 'I! _AND . !(MPLAT) = 'ES 
IF CCMPANY = FCURC 
DO SwIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENDIF 
CASE t (MONT T) = 'f! ,AND. !(MPLAT) = ‘at 
IF COMPANY = FCURCO .AND. PLATOON = ONEPLT 
DO SWIMRPT 
STORE COUNT + 1 TO COUNT 
ENDIF 
CASE !(MUNIT) = 'L' .AND. !(MPLAT) = 'B! 
IF COMPANY = FCURCO . AND. ELATOON = TWOPLT 
DO SWIMRPT 
STCRE COUNT + 1 TO COUNT 
ENIIF 
CASE !(MUNIT) = 'LD* .AND. !(MPLAT) = 'C! 
ITF COMPANY = FCURCO .AND. PLATOON = THREEPLT 
DO SWIMRPT 
STORE COUNT + 1 TO COUNT 
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ENDIF 
CASE !(MUNIT ipt 


hee and. § (NPLAT) = 
FCUCRCO . AND. PLATOON = FOURPLT 


IF COMPANY = 
LO SWIMRPT 
STCRE CCUNT + 1 TO CCUNT 
ENLIF 
ENDCASE 
IF CCUNT = 7 
@ 22,C 
ACCEET "PRESS ‘ENTER? TO CONTINUE" TO PROCEED 
STCRE 0 TO COUNT 
ERASE 
ENDIF 
SELECT PEIMARY 
CKID 
ENDDO 
ae, G 
aCCEET "PRESS 'ENTER' TO CONTINUE" TO PROCEED 
@2,2C SAY "SUMMARY LATA" 
24.1 SAY "SWIM QUALIFICATICN" 
@u,2S Say "TOTAL" 
@ 6,1 SAY "si" 
@ 6,25 SAY SITOTAL USING 1959" 
a@ 7,1 SAY "st 
77.25 SAY. SOTO TAL USING '9998 
Sei say “s3* 
@ 8,25 oh ea USING 1999! 
@ 9,1 SAY "UNQUALIFIEL" 
@ 9,25 SAY UOTOTAL USING '999° 
a@10,25 SAy " a 
: 12,25 SAY SITOTAL4S STOTAL +S3TOTAL+UQTOTAL USING #9999! 
ACCEET "ERESS 'ENTER' TC CONTINUE" TO PROCFED 
RELEASE CCUNT, PROCEEL, MSSN,SIIOTAL,S3TOTAL,: 
GOTOTAL,FOW 
USE 
FETU RN 
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SWIM REEFORT ROUTINE 
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> AELP RCUTINE 


* ROUTINE NAME: HBELP.ERG 
* MODULE NAME: STANDARD REPCRT GENERATOR 
* VERSICN: 5.14.0 
* AUTECR: R.E. PRUIETT 
* DATE: 183AN84 
* VARIAPLES USED: NONE 
* VARIABIES MODIFIED: NONE 
* VARIAELES CREATED: EFLOPT, PROCEED 
* VARIABLES RELEASED: NONE 
* FILES CEENED/CLOSEL: NONE 
* TEME FILES CREATED: NONE 
* USING FOUTINES: STERPT 
* DESCRIETICN: THIS ECUTINE PRCVIDES A FUNCTIONAL 
* DESCRIETICN OF FACE REPORT LISTED IN THE STANDARD REEFORT 
* SELFCTICN MENU. 
ERASE 
@ 2,35 SAY "HELP MENU" 
@ 3,35 SAY t---- ---- " 
@ 5,20 SAY "A...EELP UNIT ROSTER" 
@ 6,20 SAY "B...HELP TRAINING STATUS REPORT" 
@7,20 SaY "C... HELP TRAINING ROSTER REPORT" 
@ 8,2C SAY "D...HELP INDIVIDUAL TRAINING RECORD" 
@9,20 SAY "E...HELP MARKSMANSHIP STATUS REPORT" 
@10,20 SAY "F...HELE MARKSMANSHIP ROSTER REPORT" 
@ 11,20 SAY "G...HELE MOS STATUS REPORT" 
@ 12,20 SAY "H...HELE MCS RCSTER REPORT" 
@ 13,20 SAY "I...HELE PERSONAL DATA REPORT" 
@14,20 SAY "J...HELE EST STATUS REPORT" 
@ 15,20 SAY "X.. HELE EST RCSTER REPORT" 
a 16,20 SAY "Li. HELE SWIM QUALIFICATION KEPORT" 
az 
ACCEPT "SFLECT OLFTION ======> "™ TO HELPOPT 
ERASE 
DO CASE 
CASE !(EELPOPT)= ‘At 
TEXT 


CPTION Auge eU NED ROS ts k 


Meee cere CULSOL, next to “select option ====>", type the 
letter a eth Gee Secs aos PC cle imme OCSated.  LEcer 
the letter ty pressing the enter key. 

Ze If a company was selected (A-D), you will next be asked 


to select a Subunit. Enter the a Ose Et aes Weteeres LE you 
want the aoc to include the entire unit selected, enter 
eet iec., ALL OF UNIT). 


mmeececEeta1cn "E'" (1.¢€., BATTALION) was selected in the 
meeecte Unit Option, yeu _wili ge directly te the report and 
will ret be asked to’ select a subunit. 


4. Ike UNIT ROSTER REPORT will display in alphabetic 
the NAME, BANK, and FRIMARY MOS for ¢ach member or the 
Selected unit or subunit. The screen will scroll 

automatically unless stopped from che terminal. 


ct 
oO 
t4 
Qu 
mM 
a | 


Mmicmo0G OL cle Geroht pre = wegen uer key to return 
STANCTARD REPORT MENU. 


CELL recrPrT)= *B* 


CETION Baws. CRAVING STATUS REPORT . 
Meemctre cCULSOL, next to “sélect Oopcion ====>", type and 
nNter ee letter (A~F) that ccrresponds to the unit 
Sired. 
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Beit a cCmpany was selected (A-D), you will next be asked 
Bemeclect a sibunit. Enter the appropriate letter. If ycu 
Want the rerfort to include the entire unit selected, enter 
eee (1.¢., ALL OF UNIT). 

Seer CET 1Ccn “E" (1.6., BATTALION) was selected in the 
Peter UNL Op-lon, ycu wail ge directly to the report and 
will ret be asked to select a subunit. 

G, A “"WCRKING" signal on the screen will be shown tic 
Muemcate that the computer is searching for the informaticn 


you requested. 


S-  .Tthe TRAINING STATUS KEPCRT provides for all esstential 
mmogects, the PERCENT of the unit that has succesfully. 
completed each training element and the TOTAL number of 
Unit memrers that have cempleted each training element. In 
mmeeetach, the report includes Reece o Stacus for PFI, 
EFT2, SwWiMQUAL, RIFLE QUAL, and PISTOL QUAL. 


6 Fress the enter key to return to the STANDARD REPORT 


MENU. 
SODIE ST 
Meoe F({EELPCPT)= *Ct 
perk T 

CPTGeN, CC... PRAINDNG, ROSTER REPORT 
Meee re: CULSOL, next to "select option ====>", type the 
letter yet) Rie, COLPESEonds to the unit desired. “Enter 
the letter Fy pressing the enter key. 
2- If accompany was selected (A-D), you will next be asked 
Memoerect a subunit. Enter the appropriat? letter. If ycu 
Meme the report to include the entire unit selected, enter 


meee (2.¢€., ALL OF UNIT). 

Seeeeeit CE~icn “E" (1.¢., BATTALION) was selected in the 
emeeiee UNIt opticn, ycu_will ge directly, to the repert and 
will net be asked to select a subunit. 


YW. The TRAINING ROSTER EFEPCRT heading will SIs <n the 


center of the screen. Press the enter key to begin the 
port. 
ehh 
g 
fee “ERESS ‘ENTER’ KEY TC CCNTINUE" TO PROCEED 
ERAS E 
te XT 


5. The TRAINING ROSTER REPORT displays in alphabetic cider 
€ach reabrer of the selected unit or subunit and his 
Semole+e tréining status for the current year. If a 
training element has reen succesfiuliy completed for the 
Mierent year, a jletter correspending +o that training 
element will be shown. A *#"° symbol indicates that a 
Seeaning €lemen® has not been completed. For example, 
Beeheci ALD AE*¥H **B*X*CF" indicates that elements ABDEF and A 
have keen ccmpleted ard five cf the elaven elements have 
NOT been completed (2.2., C,G,I,J and K).. Four records 
will ke displayed cn the screen and you will be asked tc 
fress the erter key tc scroll the report. 


fee ee end Of the zéfort press the enter key to return 
See-ebe STANTARD REPORT MENU. 

END LE XT 

moe !(EELPCPT)= 'D* 

ee XT 
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CETION D..-INDIVIDUAL TRAINING REPORT 
fee he CUrSOr, next to “select option =s===>", typ 
letter (AE) Rat coOnreoronGds §O cig Unt t desired. F 
the letter cy pressing the enter key. 


" 


= 


4j 


Wc 


a) 
f- 
Jp orp 


Wise 


2. If a ccmpany was selected (A-D), you will next be ask:d 
memoctect a subunit. Enter the appropriate letter. If ycu 
want th2 rerort to include the entire unit selected, enter 
me (3.2¢., ALL OF UNIT). 


Sue r CEticn “Et ({i.¢., BATTALION) was selected in the 
feeect Unit cption, ycu will ge directly to the report and 
Beerrerct be asked to select a subunit. 


4. At the end of the report press the entexz key to return 
to the STANIARD REPORT MEND. 
EADIE XT 
meee !(EELFCPT)= 'E* 
14 T 

OPTION E...MARKSMANSHIP STATUS REPORT 
eee ee CULSOL, Next ~o "Wselect option ====>", type {ne 
letter eee) macs eo Eee ons to the unit desired. Enter 
the letter by pressing the enter key. 
Z. If a ccmpany was selected (A-D), you will next be asked 
memselect a subunit. Enter the appropriate letter. If ycu 


Went the rerort to include the entire unit selected, enter 
Bele (3.¢e., ALL OF UNIT). 


See it Cceticn "Et (1.e., BATTALION) was selected in the 
uemeec Unit Option, ycu will g¢ directly to the report and 
will nct be asked to select a subunit. 

G. Tke MARKSMANSHIP STATUS REFORT will display the 

eee ce ton pesults for the unilt.or Subunit nembers that 
Mumemerarted fOr gualifi- cation durzing the current year. 
Also, the ene eae that has quaiitied in each category (9g. 
meee, 08,0NC) and current year results for rifle and pistcl 
will fe hewn. The PiscoOlmulart f2 eats Omresulos “ncolude 
feeyetncse members réguired to flre the pistol for 
gqguaiificaticn. Press the enter key to continue with the 


Iepcrt. 
INDIE XT 


m2 2.0 
ACCEET NERESS 'ENTER!' KEY TC CCNTINUE" TO PROCEED 


TEXT 


Bee YCU Will be asked if FOR Beate to do a& company or 
meeaitcn Lange quota analysis. If you answer no ("NN"), 
zoe Will automatically return to the STANDARD REPORT MENU. 
he range quota analysis allows you to cbserve, manipulate 
or Peete rentiy change the rifle range guotas that are 
assigned tc the wnit ticr the test of the calender year. 
Range gucta analysis may only _ be done for the battalion or 
mez a selected ccmpary (not flatocas). 


6. At the top of the screen _ general rifi¢ range quota 
information is displayed followed by the number of quotas 
Be®Maaining in the current calendar year. Fanally, an 
indicaticn whether remaining quotas arse less than, areater 
Been s Geeedual tc the aumber cf Mararee jeff: <c quaicfty <s 
shown. 


feerrcm this point ycu may change the quota.allocatio 
a scratch pad or you may return to the STANDARD REPORT 
MENU. The criginal set of quotas have not been modifi 


ow 


ed. 
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i 22,0 

a 

ACCEET "PRESS ‘ENTER! KEY PCVeCCuPENUs™ LO. PROCEED 
Txt 


&. The scratch pad egain shews the remaining gqucta 
alilocaticns. However, you may make any temporary quota. 
changes you desire on the scratch pad by simply overtypfing 
the Current guota aliccation(s). he enter key will 
aueomatically move tke curscr to the next guota, anda 
EFuzzer will sound wher you reach the end of each fisid. 


S. After ycu've reached the last month's quota, you will 
be asked to select cne of the following thfree options: 
ae cot over on the scratch pad with the original s¢t 
et GuovaSs. 
Geese FSCCUIN to the STANDARD REFCRT MENU 


Mere SE RMANENTLY REPLACE ORIGINAL QUOTAS with the set cf 
gque<as that are currently displayed on the screen. 
fiers 15 she Chlysoptacn that. Vill actueily medity 
the OLiginal set of quotas for the unit. 

10... Cpzion_ A mav be repeated Se eae ees ER or 
ence Saul) ~TEtUEn yOU GLlEeceiy to the STANDARD REPORT 
ENDTEXT 
CASE !(EELPCPT)= ‘F* 
ms XT 

CPUTOU Fo. oMARKSMNANSHEP ROSTER REPORT 
1. At the cursor, next to "select option ====>" EES the 
Memeer. (A-E) that corresponds to the unit desired. ntér 
the letter ry pressing the enter key. 
2. If a cempany was selected (A-D), you will next be asked 
Momseclect a subunit. Enter the appropriars Pecter. iE You 
want the oe Lomi ncriuger the ensteo Unie selected, enter 
Meeeta.c., ALL OF UNIT). 
feat Crticn "Et" (2.e., BATTALION) was selected in the 
Meter anit Opticn, ycu will ge diréctly to the report end 
will net be asked to select a subunit. 
@ dhe MARKSMANSHIP KOSTER REFORT wiil dis aay in 
eee cee Opader Cre Nate, RANCReePA rs OF UA Pe Peri ON, 
SamOQUALTFICATION RESULTS for each member or the unit cr 
subunit. Current yeer results only will be displayed. 
Beene ‘the end of the report press the enter key to return 
to the STANIARD REPORT MENU. 
ENDTE XT 
mao !(EFLPCPT)= *G' 
osx T 

Ort LONSG. «oOo = DAU oe wer On Tt 

Mere tre CUCLSOLT, next to “select ception Rear wk eyes the 
lene ¢T ce) that corresponds to the unit desired. nter 
the letter by pressing the enter key. 
2. if a cempany was selected (A-D), you will next be asked 
memcelect a subunit. Fnter the appropriate letter. If yeu 
want the ect nO. nelud = Ss enewenceomomintemoel ected, enter 
etd .€., ALL OF UNIT). 
Semeent Orticn “E" ({1.¢€., BATTALION) was selected in the 
Pemect Unit opticn, ycu will gc directly to tne report and 
Will ret be asked to select a subunit. 
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4. tne 'CS STATUS REECRT ee 1 
subunit members grouped by M R 
scroll attcmatically unless stopped 


Meena moe = aCe ls © 7C. 
ANK. The screen wiil 
rrom your terminal. 


se At the end of the report press the enter key *0 return 
to the STANIARD REPOFT MENU. 
ENDTE 2T 
Meo SF (EELPCPT) = '8* 
shy a 

OPT EON Hee CS, ROSTER REPORT i 
7. At the cursor, next to “select option s===>", ee the 
letter cee) GeRateCoOrfTesvonds, tO Tne Unat desered. nter 
the letter cy pressing the enter key. 
Ze if a ccrpany was selected (A-D), you will next be asked 
memererect a Subunit, Enter the apprepriate letter. If ycu 
Want the rerort to irclude the entire unit selected, enter 
mettle G., ALL OF UNIT). 


See CeEticn “E" (i1.e., BATTALICN) was selected in the 
Seeeeet Unit option, ycu will ge directly to the report and 
meil net be asked to select a2 subunit. 
Beeeecce FCS ROSTER REFCRT groups 5 primary mos and 
displays in aes order the NAME, RANK, PRIMARY MOS 
AND SECCNDARY HOS of all members in the unit cz subunit. 
Meee cre end of the report press the enter key to return 
momene STANTARD REPORT MENU. 
ENDTE XT 
CASE !(EELPCPT)= 'TI'* 
Te XT 
OFTION I..-PERSONAL DATA REFORT 

1. At tre cursor, next to "select option ====>" ae the 
letter (ATE) that corresponds to the unix desired. nter 
the letter by pressing the enter key. 
ze If a company was selected (A-D), you will next be asked 
Memscicct a subunit, Fnter the appropriate letter. If ycu 
want the Bort to irclude the entire unit selected, enter 
meometi.cc., ALL OF UNIT). 
Peete Ceticn "EY {7.¢e., BATTALION) was selected in the 
Semeee. Unit Opticn, ycu will g¢ directly to the report and 
will net be asked to select a subunit. 
4. The FERSONAL DATA FEFORT oS oe for each member of 
mre unit Or subunit all perscnal data including NAME, SSN, 
mk, ERIMARY/SECONDARY NOS, UNIT/SUBUNIT NAME, JOIN DATE, 
Meee ELRIHLATE, EEIGHI, WEIGHT and a one character ccmment 
Meme tt the cemment block is "I" (true), a comment is 
Sentained on the indavidual concerned in the comment file. 
Gne ecreen will scroll upon pressing tne enter key. 
EmeeeaAt =he end of the report Peecsecocuemce: key tomreturn 
momihe STANLTARD REPOFT MENU. 
ENDTE IT 
Meme !(EELPCPT)= ‘'J° 
eX T 

CPTICN J... ES ies TATUSMRE PORT | 
1. At the cursor, next to "select option ====>", type tne 
Betcenr (A-E) that SOE es to the unit cesired. Enter 
the letter by pressing the enter key. 
Ze If accmpany was selected (A-D), you will next be asked 


Te3 





Bemceliect a subunit. Enter the appropriate letter. If vyvcu 
want the rerort to include the entire unit selected, enter 
met (1.¢., ALL OF UNIT). 


feet CEticn "E" (i.¢€., BATTALICN) was sélected in the 
Seetece UAT Option, ycu wili ge directly to the revort and 
Wee net be asked to select a subunit. 
meme he EST STATUS REFORT includes the parcent and tctal 
number of unit or sukunit members that have completed eéch 
MemoeNTTAL SUBJECT and the PFT. 
fc. At the end cf the report press the enter key to return 
to the STANIARD REPORT MENU. 
ENDTEXT 
Mest !'(EELPCPT)= 'K* 
ERT 

. OF ION Nee os hOoreR REPORT 
41. At tke cursor, next to "select option ====>" ie the 
letter aa Ride CcoPlecpendeseo tne! Una t desired. Nter 
the letter by pressing the enter key. 
2. If a cempany was selected (A-D), you will next be asked 


to select @ subunit. Enter the appropriate letter. If you 
Boeeeene rerort to include the entire unit selected, enter 
cee(i.e., ALL OF UNIT). 


meee OFticn "EF" (i.e., BATTALICN) was selected in the 
Pemect Unit opticn, ycu_ will ge directly to the report and 
wili ret be asked to select a subunit. 


G4. The EST ROSTER REEORT displays for each member of the 
Mts Or SUEUnIt ali cf his esstential subject training and 
Bmmecesvuits for the current year. A "*" character 
indicates an element that haS not been completed. The 
screen will scroll upen pressing the enter key. 


tke end of the report press the enter key te return 
STANITARD REPORT MENU. 


D 
mere! (EELPCPT)= ‘L* 
EXT 


SPT LON L..6..50iM CUALIFICATION REPORT 
1. At tke cursor, next to "select option ====>" aes the 
letter Pet) cnat ec ESS ees to the unit desired Eter 
the letter by pressing the enter key. 


1 next be asked 
Weeter. Ji you 
elected, enter 


2. If a ccmpany was selected (A-D), you wi 
to select a Subunit. Fnter the See ee 
fon. the oct tone nclude the enesse wins: 
Beeeett.6., ALL OF UNIT). 


Pemeeis Ofticn "Et" (1.€., BATTALION) was selected in the 
Meee Unit Option, ycu.will ge directly to the report and 
will ret be asked to select a subunit. 


YG. Tre SWIM QUALIFICATION FEFCRT displa 
meager fOr €ach member cf the unit or sub 
Pat and CURRENT SWIP QUAL EESULTS. 


meeeenae the end of the repert a SUMMARY DATA TABLE is 
d-splayed which shows the number cf unit or subunit members 
mrae have qualified in each category (Si, S2, $3, UNQ). 


S 
Caoeee 


iG 


n ec 
ANK, 


Se hak 
i ie oe 


Press the enter key to return to tne STANDARD REPORT 
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,"FRESS 'ENTER' TO CONTINUE" TO PROCEED 


ZINAanM 
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CIUL tA te th TE HE HE Oe Ht te Ht tt et ot 


APFENDIX H 


MAITSTIENANCE MCDULE LISTING 


MAINTAIN CONTROL ROUTINE 


Routine Name: Maintain.Prg 

Module Name; Maintenance Medule 

Memesicrs; 6.0 

Author: ©£.P. Haeusler 

Dates; 30 Nov 83 

Variakles Used: mdcne,mntncrft 

Variables Modified: o one , En ODt 

Variatles Created; mdone, mntnep 

Variables Released; mdone, mntnopt 

Files (opened/closec none 

Temporary Files Créé ed: none 

Using Subroutines: Cmddet 

Descrifticn: This routine produces a module which gives 
the user «he orftion cf which maintenace function te 
activate. Each function has an authorization level 
asseciated with and cnly appropriate users may activate 
certair mcdules. 


ORE £ TO AAdone 
WHILe .~NCT. AAdone 
ERASE 
meee 2S SAY "MAINTENANCE BOCOULE MENU" 
Mero, 24 SY “SELECT ONE OF THE FOLLOWING OPTIONS* 
Qmec,o | SAY "V...VIEW INDIVIDUAL DATA" 
eee § SAY “U...UFLATE DATA" 
Bulle, st SAY "C...CREATE AN ITR" 
feel, >) 6OSAY «6S. DELETE AN ITR" 
ees) SAY "S...SYSTEN FUNCTIONS" 
Sees 1 SAY HL. . EEL" 
fee co SAY MR C...QUIT .s" 
pate, 0 SAY “tN 
BecrPy " SELECT CPTION ===>" TO mntnopt 
we CASE 
Myer $(mntnopt) = *v* 
DO viewitr 
ens E ROP Ly =o ee 
IF AAleve 
DO updtitr 
Dick 
PRAS £ 
mes, 31. S8Y “ACCESS UNAUTHORIZED" 
DO pause 
ENDIF 
CASE nO *) = @. 
IF AAlevel < 3 
POV Creat ack 
BLE 
ERASE 
Dee, 51 SAY "ACEC RSS UNAUTHORAZED" 
PO pause 
ENCLE 
GASE ‘(mntnopt) = ‘pt 
IF AALlevel = 1 
De deletitr 
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Pics 
ERASE 
O85 35 le oeee neers o ew UNAUTHORIZED" 
DO pause 
ENDIF 
CASE ue rere = aero 
IF AAlevel = 1 
DO syster 
ress 
ERASE 
Coe oto neers UNAUTHORIZED" 
DO pause 
ENCIF 
CASE ee by = "HS 
SLORE 2.7 PLEOrPT 
DO B:HELP2 
CASE Oe = 'Q° 
STCRE t TO AAdone 
BRASS 
ENCDTCASE 
ENDDO 
Pale A SE mntnopt, HELECPT 
RELEASE AALICNe 
FETURN 
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ee 


Se 


VIED CCHTROL ROUTINE 


Routine Name: Viewitr.prg 

Module Name: Maintenance Mcdule 

wemelen:s 6.1. 

Author: £C.P. Haeusler 

Date: 1 Dec 83 Ro 

Variarles Used: vdcne, vfinish, vname, vcomp, vagain, 
; _..vsen, vend, view 

Variatles Modified: same as above 

Varialles Created: same as akcve 

feeetables Released: all like v?7???7??? 

Piles (opened/closéd): a: pers (opened/closed) 

pepe ety Files Created: nore | 

erg SuDroOUtiNeS: maintain.prg, stdrpt.prg, 

Merecearticn:This Ecutine centrois the creation of the 

ITR fcr viewing only. It does rot allow any changes to 


data. 
ORE F IC VWNOFIND 
ORE F TC VDONE 
WHILE .NCT. VDONE 
STCRE F TO VFINISE 
DC WHILE .NOT. VFIXNISH . AND. .NOT. VDONE 
@ €,31 SAY "TO ICCATE AN ITR" 
26,31 SAY “ENTER NAM (LAST, FIRST MI.)" 
ACCEET " NAMF ===>" TO VNAME 
STCRE U(VNAME) TO WNAME 
USE A:PERS INDEX A:ALEHEERS 
FIND SVNAMZ 
i? a = 0 
ERASE 
@ 8,31 SAY “ INDIVIDUAL IS NOT IN THE DATA EASE" 
STCRE F TO VCOMP 7 
DO WHILE .XNCT. VCCME 
ACCEPT "CO YOU WANT TO TRY AGAIN (Y/N)" ; 
TO VAGAIXS 
STORE !(VAGAIN) TO VAGAIN 
DO CASE 
CASE VAGAIN = 'N! 
STCEE T TC VICNE 
STORE T TO VCOMP 
STCKE T TC FINISH 
CASE VAGAIN = 'y? 
STCBE T TC VCCMP 
STORE T TO VNOFIND 
ENDCASE 
ENEDO 
ELSE 
STORE SSN TO AASSN 
STCRE COMMEKT TO STCCMMNT 
OSE 
STCRE F TO VEND 
DO WHILE .NCT. VEND 
STORE T TC VEND 
DO IIRSCRN 
DO G=TDATA 
@ 24,24 SAY "** PRESS ANY KEY TO CONTINUE *#" 
SET CONSCIE 
WAIT 
SET CONSCIE ON 
STORE F TC VIEW 
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Cc. 


ITF SCREEN FCRMAT EOUTINE 


* Routine Names: Itrsermn.prg 

* Module Name: Mainterance Module 
@eevetsicn: 6.1. 

* Author: £.P. Haeusler 

Hebate:s 1 CEC 83 

* Variables Used :NONE 

* Variaktles Moditied:NONE 

* Variables Created: NCNE 

* Variatles Released:NONE 

* Files (cpened/closed): NONE 

* Temporary Files Created; NONE . 
egeang Subrcutines: Viewltr, Creatitr, Updtitr, Deletitr 
fepescritticn: This «cutine formats the screen in the 
* representation of an ITR. 

ERASE 

@0,25 SAY “INCIVIDUAL TRAINING RECORD" 
@ 1,0 SAY KAME 

@1,46 SAY "GRADE:" 

@1,57 SAY "MOS:" 

Oe, 06 SAY "ss 

mee, c («SAY NETRTHDATE. scons" 

peep SAY "SSN....:2" 

meee SAY "CO; * 

Gee ic SAY “PLAT :* 

fos SAY "JOIN:" 

Omer o SAY "FAS.-:" 

Omer oe SAY “GAS MASK..:" 

feo SAY "MIL CODE CFE CONDUCT." 
Meee SAY "PPT 1.c ee oes" 

eee o> SAY "/s 

@4,61 SAY "DATE:" 

Ome SAY "HISTORY OF MARCOR.. 2" 

G a, 4C SAY ‘UBER es 6c 6-e «a2! 

meee SAY Ns" 

meer 1 SAY “DATE:" 

@ 6,8 S AY SOE ote ta o\ 4 sae ejele ove eiateree 
fees SAY “INTERIOR GOARD...-.:" 
eee SAY "MARKSMANSHIP... « wee?" 
a 8,8 SAY "NETRST DO) esac ere @ @ out 
@8,4C SAY “INDIVIDUAL TACTICAL" 
Sues SAY "FOUIP & UNIFORM. ..-:" 
femme SAY “MEASURES «cccese eset 
211,8 SAY "SWIM QUAL...:" 

fee 24 6USAY "DATES * 

Semen SAY “WEIGHT CCNTROL....3" 
fee SAY “RIFLE QUAI..:" 

@ml2,z> SAY ea 

meme, oi SAY "DATE: * 

omen 749 SAY “WEIGHT...:" 

fees c SAY "PISTOL QUAL. :" 

meets, 25 SAY Tne 

mss) SAY "DATES" 

were 49 SAY “"HETGHT...:" 

Mra ,c SAY "ELECTRONIC WARFARE... 3" 
a i, 40 SAY “DRUG REUSE << 6 eae ec 
femteees SAY "CLD WEATHER. ccc eevee 3" 
See CRY “ALCCHOL ABUSE. «ee. " 
a le, & SAY "“TAW OF WA Delete. @celeleuoe 
eee 4G SAY “HUMAN RELATIONS...:" 
Pees ec AY “TRALTNING YOS..2 ecases'™ 
mee o SAY “PERSONAL AFFAI&ES..3:" 
Demi SAY "LEADERSHIP. cence ccccas” 
a 19,40 SAY Ge lace cite ole Sievepeverevaversin 
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MCRAL ED 


RETURN 
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SCREEN CATA RETRIEVALROUTINE 
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CCMNENT RETRIEVAL ROUTINE 


Routine Name: Getcormnt.prg 

Module Names Maintenance Hodule 
feresicns 6.1.1 

Mncrt: D.P. Haeusler 

Date: 10 Jan 

Variables Used: none 

Variables Modified: none 

Variables Created: none 

Variatles Released: none 

Files (cpened/closed) : a: cmmnt (c/c) 
Temporary Files Created: none 
Merng Subroutines: Viewitzr.prs 
Peiecripticn;s This reutine displays the contents cf the 
comments cata tase file. 


ASE 

5,32 SAY “COMMENT SECTION" 
EF A:SCMMNT INDEX A: C¥MNTSSN 
ND SAASSN 

8,2 SAY INFOTXT1 

8°51 SAY INFOTXT2 

9°2 SAY INFOTXT3 

9°51 SAY INFOTXT4 

16,2 SAY INFOTXTS 

10,21 SAY INFOTXT6 

11,2 SAY INFOTXT7 

11,61 SAY INFOTXTS 

12,2 SAY INFOTXT9 

12,£1 SAY INFOTXTO 

TUEN 
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Fo UOEFDATE CONTHCL RCUTINE 


3 tt te th HE th SE th th te te th te tt Ht 


Routine Name: Updtitr.prg 

Module Nare; Maintenance Module 

Mersion: 6.2. 

Author; D.P. Haeusler 

Meees 2 Dec 83 

Variables Used; aaadon2, upname, upcomp, upagair, aassn 

Variables Modified: aaadone, Wenene, Wpcomp, upagalir, 
aassn 


Variables Created: aaadcone, upname, upcoomp, upagain, 


; dacurlngnadcer > 
Files (cpened/closed); eee (OPENED/CLOSED) 
Temporary Files Created: NONE 
eee Subroutines: Maintain. frg 
Peeeeeercicn: This loutine finds the ITR tc be updated 
and ccntrceis the update routines. 


STORE F TO AAADONE 
CLO WHILE eNOT. AAADONE 


FRASE 
@ €,24 SAY "WHICH ITR IS TO BE" 
® $,23_SAY "UEDATED OR CORRECTED?" 
@ 10,23 SAY "NAME (LAST, FIRST MI.) 
ACCEPT " NAME ===>" TO UPNAME 
SICRE t (CRNA ME) TC UPNAME 
USE A:PEES INDEX a:ALDHPERS 
FIND SUEXAME 
IF #=0. 
ERASE 
@ €,24 SAY "“INDVIDUAL IS NOT IN THE DATA BASE" 
@ 6,23 SAY "OR YOU HAVE ENTERED AN INCORRECT NAME" 
STCRE F TO UPCOMP 
DO WHILE .NOT. UECOMP 
ACCEPT * DO YOU WANT TO TRY AGAIN (Y/N) 2"; 
TC UPAGAIN 
DO CASE 
CASE t (OEAGAIN = yt 
STORE 1 TO UECOMP 
CASE t (UFAGAIN) = yt 
STORE I TO UECOMP 
STORE 1 TO AAADCNE 
ENICASE 
ENDD 
ELSE 
SICRE SSN TO AASSN 
USE 
DC ITRSCRN 
tO GETIDATA 
DC UPLATA 
STCRE F TO UPCOMP 
DO WHILE NOT. CECOMP 
ERASE | 
ACCEPT ™ DO YOU WANT TO UPDATE ANOTHER ITR: 
(Y/N)2" TC UPAGAIN 
DO CASE 
CASE !(UEAGAIN) = '¥!' 
STORE 1 TO UECCMP 
CASE !(UEAGAIN) = 'N! 
STORE I TO UECOMP 





STORE T TO AAADONE 


ENDCASE 
DC 


- @ @ ¢ © @ «68 


A 
HRU, AACORR, AAADONE 


Pshs 





G. DATA UPLATE ROUTINE 


ROutine Name: Updata.prg 

Mcdule Name; Maintenance Module 

Persicn:s 6.2.0.1 

me ror: D. P. Haeusler 

Date: @ Dec 83 

WMeartatlies Used: aathru, aacorr, upopt, inname, inrank, 
WpGCcUM@c ese, I1SCC, ILDEth, inssn, 
errept, inccmp, inplat, injndates, ineas, 
ingas, incode inprtly Carveepe, wenru, 
wdate inprtdti, Pi Oecaes, Inowd <, 
inrfldt, Papert inns, inpre2, indrill 
Ln eee oer KS,; 2nalid, intni, 
Intdepe2n swqu inrfisc, inweight, 
INPSese, piah fe, inelec, indrug, 
Incldwen, inascnu, ianlawsy irhum, inmcs, 
In pencem, at dG, 2nhucny), INChrmor, 


. _ .. LERECI Me 
Variarles Modified: same as above 
Variarles Created: same as atove 
Mearracles Released: ali like 1n????7?? | 
Files (cpened/closed): a: pers Maem eaycl ocd 
De opened/ciosed 
eee (Opéned/closed 


Infea.sc jeer eo 1osed) 


Temrcrery Files Created: none 

Mesng Subroutines: updtatr.org 

Descrigtien: This reutine presets the user to checse 4 
epecific field of the ITR to update. It then locates 
that field in the cata base and replaces the old daté 
With new data. It also calls error checking routines 


Vie ce ee ee SY YY YS 


and a calculate function. 
STORE F TO AATHRU 


PemwatlLE oNCT. AATHRO 
SCRE F TO AACORR 
DC WHILE .NOT. AACCRR 
POOLE ASH ALL LIKE IN??? 
See RB SLO. U eOrs 
@ «2,0 
@ 23,0 
Gee ony OOLTROGNS FTEPepeTO See CHANGED OR 'Q°; 
woeOUurcit." 
cece lores,“ OPTION, —~=->" GET UPOPT PICTURES "XXXXXxX; 
ELK AINE 
R 
SCRE !(UPCPT) TC UPOFT 
EG] CASE 
CASERUPCPT = *NAME® 
SHORE T TCO AACORR 
Done kee oho UNDE XA ease ERS oN, ASALPHPERS 
FIND &AASSN 
STORE NAFE TO INNAME 
Geel, IZ Gel iNwanme PHOTURE “XXKXXXXXXXXKXRXX XX; 
meee AR X TR AXK XIX" 
READ ; 
REPLACE NAME WITH ! (INNAME) 
USE 
CA CHmUeCEIS= “GRADE! 
SLOR Eb. tC -ARCORR 
US As PShS INDEX ASPERS SN 
FIND &AASSN 
STORE RANK TO INRANK 
ame GET INRANK PICTURE "XxX" 
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Be. ITR CREATION CONTEOL ROUTINE 


Routine Name: Creatitr.prg 
Module Nane; Maintenance Module 
Mersicn: ¢€.3.0 

MethcrsD.F. HAFUSLE® 

Date: z Dec 83 ee: 

Macttabdies Used: crccmp, aarini, cragain 

Variarles Modified: same as above 

Variables Created: same as above 

Variatles Released: same as above 

Files (cpened/closed): NONE 

Temporary Files Created: NONE 

Beang cubroutines: Faintain.prg 

Bese tice: Pies eucietuemGentrols the Créeeticon of new 
i S. 


meeer F TO AAFINI 


St tt 3t th th tt tt dh it th te th St te 


LO WHILE .NCT. AAFINI 
ERASE 
DC ITESCAN 
DC INIATA 
STCRE F TO CRCOME 
DC WHILE .NOT. CRCCMP 
FRASE 
ACCEET "DO YOU WANT TO CREATE ANOTHER ITR (Y/N) 2"; 
TO CRAGAIN 
[O CASE 
CASE ! (CRAGAIN) = 'y'* 
STORE T TIC CRCOMP 
CASE !(CRAGAIN) = 'N® 
STORE T TO CRCOMP 
STORE T TC AAFINI 
EFNICASE 
FNDDO 
ENDDC 
RELEASE ALL LIKE CR?77??? 
RELEASE AAFINI 
USE 
RETURN 
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IIR DATA INITIALIZATION RCUTINE 


Routine Name: Indata.prg 

Module Nare; Maintenance Module 

mersions €.3. 

Authcrs: D.P. Haeusler 

Da-€: z Dec 83 

Variables Used: aadate, vssn, in*, aassn 

Variatiles Modified: int, aacsi 

Variaktles Created: in*, aassn 

Variarles Released: in*, aassn 

Files (cpened/closed): a:pers(O/C), b 
bs infcmisc (O/C 

Temporary Files Created: None 

USing Suproutines: Creatitr.prg 

Pemicrarticn: This reutwme inserts the data in the 

meaning record format On the screen and checks for 


est 
), b 


oeeeces in the data entry. The data is then inserted in 
the data kLase. 

ORE AALTATE TO INDATE 
See LAST, FIRST MI. "TO INANE 
Se " ' TO INRANK 

one ee O END Ra yeas 
aie " : INSECMOS 
fee “DOMMNYY" TC INERTH 
one & 1 TORN SSN 
as (T* iC LNGEMP 
Ore SLO e rat 
wee “DDANYY" TO INJNDATE 
wee “"DCMAYY" TO INEAS 
eae “ “ TC INGAS 

Ore FFE TO. TNCODE 

Ore O00 IC INPFT1 

meee VOLCMMYY' TC INEFTDT1 
Poe tae TO TNHIS 

Mee O00 TC INPFIT2 

oe “ODER MYY" TC INEFFTDT2 
ee eee TO INDRILL 

ma “AERA TO INXEC 
ree XEN TO LNINT 

fee Ue ee TO INEKS 
ORE “Ake eee SKM TC TNAID 
oe FR TO UT NUNIT 

Peo reese TO INTAC 

She "S * 10 INS¥WOU 

creer CEMEYY" TO INSHDT 
ee “OCO" TO INRFLSC 

meee, NEEMMYY'" TC INEFLDT 
ORE "000" TO INWEIGHT 
eer '000" TO INPSTSC 

eee OD POMYY" TC INESTDT 
Gee “OO TO INHGHAT 

es taker xett TO TNELEC 
Prat Sees et! TO INLRUG 
Pe eee TO INCIDWIR 
rete es ee TO TNALCH 
Pe eee eet TC INIAW 
eee oases TO TNEOM 
wie eee TO INMOS 

One “Ae exee TO INEFERSAFP 
One “as2ete" TO INICR 
ORE “aeyrete" TO INUCNI 
See reer ee TO INCHRMOR 
ORE F TO INCOMMNT 

OE F 10 TNWICCNT 

oe TC TNPYTICL 

ene ™ TC TNPFIT2ZCL 
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Ke. CALCULATION ROUTIBE 


Rcutine Name: Calculat.prg 

Mocule Narre: Maintenance Mcdule 

Poet Cr:; 6.3.1.2 

Authcr;: (©.P. Haeusler 

Bete: z tec 83 

Variables Used: calcopt, aassn, aadate, brthdate, ags, 
, .-, 00, in ; 

Variables Modified: age, mm, in* 

Variarles Created: age, ma, in*® 

Variakles Released: aid Seto peradas6 <2 2 ¢ 

Mes (C/C): a:pers{o/c), b:qual(o/fc), b:est (o/c) 

Tempecrar iles Created: none. 

Using, Subroutines: Ree eeeee oe andata.prg 

BeoeeceapciOns This rcutine dces the calcuiations that a 

me gqgered by the entry of data into certain fields of 

Mine These calculations tecenstruct the tables found 

mare tlLaining orders. 
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Me. CCHAMENT CREATION FOUTINE 


Routine Name: Crtcomt.pre¢ 

Mcdul¢s Names Maintenance Module 

Versicn: 6.3.1.4 

mucher: D.P. aetieen 

Date: 10 Jan 84 

Variables Used: newtext, aassn 

Variatles Modified: newtext 

Variables Created: newtext 

Variatles Released: newtext 

Files (cpened/closed) : az:cmmn= (o/c) 

Temperary Files Created: nene 

Metndg Subroutines: indata.pro, updata.prg 
Descrirpticn:s This routine créates a comment data base 
file f¢r the individual that corresponds to the aassn. 
This file when created has 10 fields of 25 characters 
each and is filled with asterisks. 
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DELETE ITR RCUTIRE 


Routine Name: Leletitr.prg 
Mcduls Name: Maintenance SYodule 
werscior: 6.4.0 
Authcr: D.P. Haeusier 
Date: z0 Jan 84 
Variables Used; del* aassn 
Variables Modified: del# aacsn 
Variables Created: del 
Variatles Released: del 
Files (opened/closed): ae = , bsest (o/c), 

b: qual CAE), BEM CR Cee Oye) 
Temporary Files Created: none 


Weang Subroutines: Maintain. 2 g 
Beseripticn: This reutine de ates records in the dara 
Base. it first checks £60 see if the record is in the | 
Gace tase, displays the reccra, queries the user if this 
is the record to be deleted, and deletes the recerd. 
Ome F TO LELFINI 
meer «6 NCT. DELFINI 
BRASE 
emmiz, -O0 SAY “ITR TO BE DELETED" 
ACCEPT " NAME (LAST, FIRST MI.) ====>" TO DELNAME 
eeeenastE Eno INDEX AtsALPHE ERS, A:PERSSN, A:MOSNDX 
FIND &DELNAME ; 
if Panic ds # = 
STCKRE SSN TO AASSN 
CC ITESCRN 
DO GETDATA 
STCRE F TO DELTSRU 
POUWHILE «NOT. DELTURD 
Ole, Jeo ie tom Geers Trr TO BE DELETED? * 
ACCEPT " ENTER YES OR NO =====>" TO DELCHK 
ig eeu = 'NO! 
SuOn pee ten CG VO binn Hh U 
ELSE 
Erte neCrh i= 7 te S ° 
ee 
ewes cc ony DELETING ITR" 
SiO eet ey DELL ARY 
USA Ce ome DE ASALPHPERS, A:PERSSN,; 
A:MOS XIX 
FIND &AASSN 
IF .NCT. # = OQ 
Deer ss 
PACK 
ENDIf 
USE A GuaNT INDEX Az: CMMNTSSN 
FIND &AASSN 
IF .NCT. # = 
DELETE 
PACK 
ENDIF 
USE BoGUAbDeeNDEX 2 -OUALSSN 
FIND &AASSN 
IF .NCT. # = QO 
Dee eee 
PACK 
ENDIF 
USE. Bstst-INEEX. Bs ESTSSN 
FIND &AASSN 
ITF «NGI. # = 0 
Deets 
PACK 
ENDI? 
USEeecmineoul se ENEEX ASINFOSSN 
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C. SYSTEM FUNCTION CCHTROL ROUTINE 


Routine Name: System.prg 

Module Name: Maintenance Mcduile 

Meme cu: 6.5.0 

Author: D.P. Haeusler 

Date: 30 Jan ot 

Variatles Used: aaccmple, sysopt 

Waraables Modified; A sysop 

Variarles Created: aacomple, sysopt 

Variables Released: aacomple, sysctpt 

Files yapcoe (enon els none 

Tempcrary Files Created: none 

Beong Suctoutines: Matntain.grg : 
Descrifticn: This medule creates the ménu for all the 
feeeitem function modificaticns. It is a restricted mod 
and car cnly be accessed by a user with & authorizeati 
level cf 1. The mcdule then can chooss¢s the ao eeoP= te 
Subrcutine correspcrnding to the opticn selected. 
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Fe SYSTES INSTAIATICH ROUTINE 


* Routine Name: Instali.prg 

* Module Name: Maintenance Mcdule 

PeeeecSicn: 6.5.1 

m™ AUthcr: D.P. Haeusler 

* Date: 7 Feb 84 

memariables Used: *cc, *plt, cratyr 

meeortialies Modified: *co, £r =eecrncysr 

* Variables Created: nore 

* Variaktles Released: all 

* Files (cpened/closed) : a:sunitmem.memn, azsmemdisk.men 
* Temporary Files Created: temp. men 

mw oesng Subroutines: fSystem.prg . 

Boe cCripticns This rcutine stécres the appropriate values 
* in the memory files that the system uses to descrite the 
Betts that are in the battalion. It aiso establishes 
® che current year tket is used for error checking and 
* calculaticns 

peeve. tC TEME 

PebEASE ALL 

ERASE 

RESTCKE FRCM AsUNITMEM 

fee > 6SAY “SYSTEM INSTALLATICN" 

Meet SAY “ENTER THE NAMSS OF YOUR COMPANY SIZE UNITS" 
Mey i> SAY "“COMPANY/EATTERY #1" 

Oe, 34 GET CNECO PICTURE "XXXXXxX" 

mee > SAY “COMPANY/EATTERY #2" 

Oo, o4 GET TWOCO PICTURE "XXXXXx" 

fees SAY "COMPANY/EATTERY #3" 

meso, od GET THREECO PICTURE “XXXXXxX" 

feo, > SAY "COMEFANY/EATTERY #4" 

aes CRlereu RCO PICTURE. "Xx xx xX" 

5 

STORE | HT HOCOS TOFONEGCO 

SOR F | THREE LTC lLwcco 

meget § {THREECO) TO THRSZECO 

ememe § (FCUFCO) TO FCURCO 

PAS E 

ee, oC SAY "SYSTEM INSTALLATICN" 

mero oay “CRNTER THE NAMES OF PLATOON SIZED UNITS" 
Oergts SAY “PLATCON #1" 

@ee2O0 GET CNEPLT PICZTORE ™ XXXXxXXXX xX" 

Beers SAY “PLATCON #2" 

eeeeezo GET TWOPLT PICTURE “ XXXxXXXxx x" 

eee SAY 'PLATCON® 431! 

fuegeez oOo, GE! THREEPLT PICTURE “XXXXXxX XXX" 

@10,15 SAY "PLATOON #4" 

aoe <6 CeTyFOUREPL I PICTURE “XXXKEXXXX" 

Somers! (CNEELT) TO ONEPLT 

STORE Meee TO TKCELT 

pees + (2BREEPLT) TO THREEPLT 

eens !§ (FOURPLT) TO FCURPLT 

eave LO UNITIMEM 

ERASE 

PELEASE ALL 

MmeolORE FRCP ASMENDISE 

eee, 2D SAY “ENTER TEE CURRENT YEAR" 

RECEFT " YEAR (YY) ===>" TO CRNTYR 

pave LO BZ BEMDISA 

Bee ASE ALL 

Meer CFE FROM TEMP 

RETUEN 
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Qe. SYSTEM RESET ROUTINE 


Routine Name: Sysreset.prg 
Modul¢ Name: Mainterance Mcdule 
me esicn: 6.5.2 
Author: ©€.P. Haeusler 
Date: 4 Feb 84 
meeaarles Used; crntyr, Feset, cCgreset, done, g*, *co 
Variables Modified: crntyr, reset, tgreset, done, g*¥, *co 
Variabies Created: reset, rgreset, done 
Variarkles Released: all . 
Files (cpened/closed): azsmemdisk.men, azsunitmem.men, 
MeEOT ery Files Created: temp. menm 
i 


+ 
* 
* 
* 
* 
* 
x 
* 
* 
% 
* 
* Using Subroutines: System.pr 
memes cCrarticn: This rcutine sets ali the vaiues to the 
* default value for tke fields that are reset yearly. the 
ween cromaticn is then stored in the data base for each 
* individual. It alec stores the yearly Pros eCeese) = Cn) 
* che rarge otas te a memory file that can be recélled ry 
Weeodtines that use these values for caiculaczions. 
aay TO TEME 
meee ASE ALL 
eee Fe FROM ASMEMDISK ADDITIVE 
Mee i> SAY “ENTER TEE CURRENT YEAR" 
ACCEPT " YEAR (YY) ===>" TO CRNTYR 
Seve TO A: MEMDISK 
RELEASE ALL 
Seamer F TO [ONE 
CO WHILE .NCT. DCNE 
mR ASE 
gto, ts SAY “DO YCU WANT TC RESET RANGE QUOTAS FOR; 
THE YEAR?" 
aCcCEET " ENTER (Y OR N) ====>" TO RESET 
IF eee a =r 
SHene © TO DONE 
Seenr terO RGRESET 
iL SE 
IF ES ST) = ‘'N¢ 
SlGre TREO CCNE 
Srons EetO RGRESET 
mn GLE 
mo LIr 
ENDDO 
me GC kES ET 
ERASE 
RESTOFE FROM A: ARNGCQTAS 
fection’ FROM A:sUNITNEM ALCDITIVE 
Gee tc SAY "ENTER RANGE QUOTAS AS PROJECTED,; 
FOR THE YEAE," 
@ 4,15 SA¥ "FOR UNIT: " 
fee say CNECO 
Geog ls SAY “JANUARY 
feececo Gro QUAN PICTURE “999" 
eee AY “FEBRUARY 
@ 7,24 GET OPEB Preiuane. oo" 
Gecwo SAY "MARCHE" 
Gece GeT OMAR PICTURE "999" 
Geos OC AY "AERIL* 
GeecercmeGe: QRER PICTURE "999" 
@ 16,15 SAY "MAY" 
Seelw, we GEY OMAY EICTURE "999" 
geit,i> SAY “JUNE 
Gpvie20 GET QJUN EICTURE "999" 
Dezeslowcay “JULY " 
deeeeoear: OJUL EICTURE “999" 
ete ioe cay "AUGUST" 
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Re. SYSTEM ACCESS CONTFOL RCUTINE 


Routine Name: Rstaccss.prg 

Module Name: Maintenance Module 

mel elons 6.5. 

muther: D.P. Haeusler 

Bate: &€ Feb 84 _ 
Variables Used: VitaiomcecCreemOne 1776S, do1s, cont 
Variables Modified: Same as above 

Variartles Created: same as akove 

Variakies Released: all 

Files (cpened/closed) : a: security (o/c) 

Temporary Files Created: none 

meee, Sukroutines: System. -FT9 

D Bicones fcuemne alviows ufSers with an access 
aE €f V eo Update thesgaecess list. 


TOR rac 
e-NOT. THRU 


Sere oe U Riry TAC GE Sc £15 I" 
Seen OC cree mle TOmor EXECUTED" 
Seles sion bo USERS" 


" Ae. - ADD 
SAL es rere Cae ACeess, List" 
at Toei oe TON EN U 
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